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IC-R 71 Ricevitore HF a copertura generale 

100 KHz - 30 MHz 


La nuova versione è più che un miglioramento deformai 
noto R70 in quanto comprende nuove funzioni e flessibilità 
operative più estese, n segnale all'atto della prima 
conversione è convertito a 70 MHz eliminando in tale modo 
le frequenze immagini e spurie. Detto stadio ha una 
configurazione bilanciata con l'uso di j FET, il che porta la 
dinamica a 105 dB! 

La successiva media frequenza a 9 MHz incorpora inoltre il 
filtro di assorbimento, la costante AGC regolabile, un 
soppressore dei disturbi capace di eliminare pure 
l'interferenza del fastidioso radar oltre l’orizzonte sovietico 
nonché quell'indispensabile controllo di banda passante 
con cui è possibile regolare la selettività in modo ottimale 
compatibilmente con la situazione in banda. La presenza 
del |j.P rende piacevole e rilassante l'uso dell'apparato: 
doppio VFO ad incrementi di 10 Hz oppure 50 Hz con una 
rotazione più veloce del controllo di sintonia. Un apposito 
tasto seleziona volendo incrementi di 1 KHz. L'impostazione 
della frequenza può essere eseguita in modo ancora più 
veloce mediante la tastiera. Le frequenze d'interesse 
possono inoltre essere registrate in 32 memorie alimentate 
in modo indipendente da un apposito elemento al litio. È 
possibile la ricerca entro lo spettro HF, oppure entro le 
memorie. In quest'ultimo caso possono essere selezionate 
soltanto le classi d'emissione programmate. Una frequenza 
precedentemente registrata potrà essere trasferita al VFO 
per eseguire delle variazioni addizionali, trasferita all'altro 
VFO se necessario, oppure nuovamente in memoria. 

Un preamplificatore con un valore intrinseco di basso valore 
ed inseribile se la situazione lo nchiede, eleva 
grandemente la sensibilità. L'1C-R71 inoltre è al passo con i 
tempi: l'apposita interfaccia IC-10 permette di collegarlo al 
calcolatore. Con il generatore di fonemi si otterrà l'annuncio 
in inglese con una voce dall’accento femminile. Un apposito 
telecomando a raggi infrarossi RC-11 (opzionale) permette di 
manovrare l'apparato anche a distanza similarmente ad un 
televisore, n grafista o lo sperimentatore più esigente 
potranno avvalersi dell'apposito filtro stretto da 500 Hz, 
oppure del campione CR434 che debitamente termostatato, 
presenta caratteristiche di elevatissima stabilità. 


CARATTERISTICHE TECNICHE 
RICEVITORE 

Configurazione: a 4 conversioni con regolazione continua 
della banda passante. Tre conversioni in FM. Emissioni 
demoduiabili: Al, USB, LSB, FI, A3, F3. 

Medie frequenze: 70.4515 MHz, 9.0115 MHz, 455 KHz. 
Sensibilità (con il preamplificatore incluso): SSB/CW/RTTY: 
< 0.15 nV (0.1-1.6 MHz - l(i V) per 10 dB S + D/D 
AM: < 0.5(iV (0.1-1.6 MHz = 3|iV) FM*:< 0.3|iV 
per 12 dB SIN AD (1.6 - 30 MHz) 

Selettività: SSB, CW. RTTY: 2,3 KHz a -6 dB (regolabile a 

500 Hz minimi) 4,2 KHz a -60 dB 

CW-N, RTTY-N: 500 Hz a -6 dB 1,5 KHz a -60 dB. 

AM: 6 KHz a -6 dB (regolabile a 2.7 KHz min) 15 KHz a -50 dB 

FM*: 15 KHz a -6 dB 25 KHz a -60 dB 

Reiezione a spurie ed immagini: > 60 dB 

Uscita audio. > di 3 W 

Impedenza audio: 8fi 

*Con l'installazione dell'unità FM opzionale. 


ASSISTENZA TECNICA 

SJLT. - v. Washington, 1 Milano - tei. 432704 

Centri autorizzati: 

A.R.T.E. - v. Mazzini, 53 Firenze - tei. 243251 

RTX Radio Service - v. Concordia, 15 Saronno tei 9624543 

e presso tutti i rivenditori Marcucci S.pA. 
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RECALA UN 
PERSONAL 
COMPUTER 

tre liha già 
regalati ai signori 


• Ignazio PACCES 
via S. Vittore 38 - 20100 MILANO 

• Gianluca MERCURI 
via F.A. Pigafetta 84 - 00154 ROMA 

• Aldo MARCHETTO via Turati 14 - 10036 SETTIMO TORINESE (TO) 


C TU COSA ASPETTI? 

CQ assegnerà a suo giudizio altri tre Personal Computers ZX Spectrum tra tutti i 
Lettori che, entro il 30 giugno prossimo, risponderanno a queste tre domande: 

Personal Computer 


1) Perché ancora non ce l’hai? 

2) Se tu lo avessi, cosa ci faresti? 

3) Lo hai mai usato? 

4) Conoscevi CQ? 




CQ 


RECALA PERSONAL COMPUTER 


r 




Tagliando die deve obbligatoriamente accompagnane le vostre risposte. XÉ 


• • 




I5YJI, Francesco Francescangeli 

C ome promesso, mi ripresento con 
qualcosina di hardware. 

Questa interfaccia per il G5 non vuole essere 
assolutamente una antagonista di quelle 
presentate dall’Ing. Becattini, ma solamente 
una proposta alternativa, partendo sempre 
dalla mia idea di base che un appassionato di 
elettronica non rifiuta mai una nuova solu¬ 
zione al solito problema ma si diverte a rea¬ 
lizzarla e, perché no, a migliorarla. 

£ quest’ultima è la mia proposta. 


INTERFACCIA 

PER REGISTRATORE, 
E ALTRI TRASTULLI 

Breve storia del marchingegno. 

Visto lo schema dell’interfaccia perG5 
su XÉLECTRON, e notata con angoscia 
l’omissione dell’elenco componenti, supe¬ 
rato un quarto d’ora di shock, mi rimboccai 
le maniche (e il cervello!) e cominciai a 
buttar giù lo schema del circuito stampato 
(“ai componenti penso poi”), assumendo 
per gli operazionali un LM324. 

Fotoinciso, inciso e forato che fu, co¬ 
minciarono le ipotesi sui componenti, con 
relative prove “su strada”. Non vi dico le 
ore passate per convincere il 74121 che do¬ 
veva emettere quei dannati impulsi! Il fat¬ 
to è, scopersi poi, che con alimentazione 
singola a +5 V, un operazionale tira fuori 
un segnale con un’ampiezza di 2,5 V, e 
questi non sono sufficienti a smuovere il 
testardo 74121 (almeno i miei tre esempla¬ 
ri). 

Confesso che mi prese uno sconforto... 

Ripresomi, mi venne in mente di far la¬ 
vorare l’operazionale con i±5, come è sua 
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abitudine, ed effettivamente dei risultati li 
ottenni, ma con una estrema criticità nella 
regolazione del volume del registratore. 
Inoltre non vi dico per trovare i valori di R 8 
e C 3 sul 74121! Valori che poi mi lasciavano 
margini molto stretti di VERIFYnn. 

Dato che non potevo sopportare di sot¬ 
tostare alle bizze di una mezza manciata di 
componenti, misi tutto da parte e comin¬ 
ciai a buttar giù uno schemino di base, tal¬ 
mente classico da inorridire, ma proprio 
per questo promettente. Fatto lo squadra- 
tore d’ingresso, pensai di aggiungere un 
ancor più classico transistor switch per ele¬ 
vare il segnale ai +5 V appetibili alla 
Z80PIO: sorpresa! ERR DI LETTURA 
praticamente fisso sul monitor. E allora? 
Altro stadio uguale al precedente per rein¬ 
vertire il segnale (eppure dovevo saperlo 
che uno switch inverte il segnale!) e nuova 
prova: VERIFY OK. E finalmente non più 
problemi di volume: a 10, o al massimo che 
dir si voglia (almeno con il mio PHILIPS 


N2234), con il controllo dei toni al massi¬ 
mo verso gli acuti. 

Una nota importante: funziona senza 
problemi dalla velocità VERIFY 5 in su (o 
giù; insomma numeri alti) senza cambiare 
alcun componente. E non mi sembra un 
vantaggio da poco. 

Comunque, tenuto ai “lavori forzati” 
per diverse ore non è uscito l’ERR DI 
LETTURA neanche una volta, giuro! 

Confesso che mi sono sentito orgoglio¬ 
so della mia creatura. 

Io ho installato il tutto dentro il conte¬ 
nitore del G5, con un connettore all’ester¬ 
no, per evitare una eccessiva lunghezza dei 
fili verso la PIO, notorie antenne eccezio¬ 
nali per i disturbi, ed anche perché si trova¬ 
no facilmente i cavi già pronti attestati con 
i connettori più disparati. Niente proibisce 
però di metterlo esterno, però con cavi 
schermati, ovviamente. 

E passiamo al circuito, anche se c’è po¬ 
co da spiegare. 


micro 


? 



Rl3 

vW 


f 


B! 



R„ R 9 , R u 3,9 kQ 

R 2 6,8 kQ 

R 3 4 ,7 kQ, trìmmer 

R t , R s , R d 10 kQ 

R 7 5,6 kQ 

R s , R ,o 2,2 kQ 

tutte al 5 %, 1/4 W 


C 2 0,1 (jf, disco 

C 3 , C„, C B 4,7 p/", 16 V L 

Qu fi 2 BC237 

X , (j A 741 

£>„ Z) 2 IN4148 
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Il trimmer R 3 va regolato in modo da 
avere sul piedino 2 di X, una tensione pari 
alla metà esatta della tensione di alimenta¬ 
zione (non fidatevi del regolatore, misura¬ 
tela), questo perché il 741 è alimentato a 
tensione singola; ovviamente fate la misu¬ 
ra senza segnale in ingresso. Sul piedino 
2 ci dovrebbe già essere metà tensione di 
alimentazione; se fosse un po’ differente, a 
causa della tolleranza delle resistenze, se¬ 
lezionatevi due resistenze che siano uguali 
di valore il più possibile. 

Tutto qui. 

E deve funzionare al primo colpo. 

Per la sezione registrazione, restano 
fermi ovviamente i valori proposti dall’ing. 
Becattini. 

Allego anche per vostra comodità il di¬ 
segno del circuito stampato e la posizione 
dei componenti. 


Augurandovi buon lavoro, non me ne 
vado ma, cosparsomi il capo di cenere, 
debbo fare ammenda di alcuni miei errori 
nei programmi da me presentati. 

Il primo è nel programma per sapere il 
giorno della settimana. 

Purtroppo quando l’ho fatto girare ho 
scelto delle date che evidentemente non 
mi hanno dato errori. Ricercandolo su na¬ 
strò, però, ha cominciato a darmi giorni 
strani. Dopo alcuni controlli ho potuto sta¬ 
bilire che, a causa di arrotondamenti alla 
ennesima cifra decimale effettuati dal G5, 
con alcuni giorni mi usciva fuori un 
.999999 anziché un intero. Ciò portava il 
programma ad avere la settimana di 8 gior¬ 
ni, anziché di 7! 

Per ovviare a ciò, ho dovuto aggiungere 



















una riga e modificare alcuni valori in altre. 
Ecco le righe incriminate, riscritte corret¬ 
tamente: 


165 IF (D/7-1 NT (D/7) )^=. 59999S THEK LET X=6 
170 IE X=2 THEN (uguale alla vecchia) 


180 IE X=3 THEN ( •' 

190 IF X=4 THEN ( » 

200 IF X=5 THEN ( » 

210 IF X=0 THEN ( » 

220 IF X=6 THEN ( " 

230 IF X=1 THEN ( » 


) 

) 

) 

) 

) 

) 


Ci sono poi due modifiche al program¬ 
ma di conversione hexadecimal-decimale 
e viceversa del mio ultimo articolo, che io 
avevo già apportato, ma che, perdonatemi, 
mi sono dimenticato di apportare anche al 
listato. Eccole; 


4S0 REM OMETTERE II CLEAR 
200 LET NI = 0 : LET N2=0 


Liberatomi così la coscienza di un gran 
peso, passo a proporvi una modifica a quelle 
tastiere basate sulla ROM AY5-2376 o 
KR2376. 

Come avete visto, la ROM presenta un 
byte in uscita ogni volta che si chiude un 
incrocio tra una riga e una colonna. Per 
brevità e chiarezza, riferendomi allo sche¬ 
ma dell’Ing. Becattini diXÉLECTRON, pa¬ 
gina 60, citerò solo X e Y. 

Ho notato, dopo alcuni esperimenti, 
che ci sono delle istruzioni e delle funzioni 
ottenibili, anziché con il solito CONTROL 
+ un tasto, solamente con una manovra, 
dedicando un tasto vulgaris interruttore a 
questo scopo. 
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Dato che la modifica, aggiunta di un ta¬ 
sto e due fili da collegare, mi sembra molto 
semplice e per nulla laboriosa, vi propongo 
questi nuovi tasti: 


INCUOCIO 


X 

Y 

EQUIVALE A ~ 

0 

2 

INK 

0 

5 

BLANK 

0 

6 

GRAPH 

0 

7 

NOBLANK 

0 

8 

SPDEE 

1 

0 

SPFORM 

1 

5 

LOAD 

2 

f 

4 

PAPER 

5 

' 9 

FORM FEED (cursore inizio quedro e cancella tutto) 

6 

9 

HOR. TAB, (cursore e destra 8 spezi) 

6 

10 

FILE SEPARATOR (cursore inizio Quadro) 


Un consiglio, anche se ovvio: usate pre¬ 
feribilmente tasti con contatto a reed o co¬ 
munque un buon tasto da tastiera, non 
adoperate gli interruttori da pannello, i 
rimbalzi si sprecano! 

Con ciò ho terminato, e, sperando di 
aver interessato o per lo meno incuriosito 
qualcuno, vi saluto. Ciao. 

FINE 
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IK4BEM, D aniele Guerzoni 

L interfaccia seriale che viene qui pre¬ 
sentata serve a collegare a un micro¬ 
computer dotato di interfaccia per stampante 
parallela una telescrivente seriale consen¬ 
tendo l’utilizzo del software esistente per 
tutti i comandi di stampa. 


Principio di funzionamento 

Prima di passare alla descrizione dello 
schema elettrico, analizziamo brevemente 
il funzionamento degli standard utilizzati, 
vale a dire l’interfaccia parallela Centro¬ 
nics e la telescrivente seriale ASCII 110 
baud tipo ASR33. 

L’interfaccia per stampante parallela 
Centronics emette i dati in byte formati da 
7 bit paralleli e da un segnale di abilitazio¬ 
ne per la stampante: il “Data Strobe”. La 
velocità con cui i dati vengono emessi vie¬ 
ne condizionata dalla stampante attraver¬ 
so il segnale “Busy”. Questo segnale viene 
mantenuto alto per il tempo necessario al¬ 
la stampa. 

La telescrivente Teletype ASR33 può 
operare esclusivamente con dati seriali 
ASCII con una velocità di 110 baud. Il se¬ 
gnale, che deve essere di tipo start-stop, è 
composto in 11 bit da un bit di start, 8 bit 
informativi (di cui uno non utilizzato) e da 
2 bit di stop. 

Questa macchina, eccettuate le minu¬ 
scole, può stampare tutto il set dei caratteri 
ASCII compresi il ritorno carrello e l’inter¬ 
linea, questi ultimi, però, non in modo au¬ 
tomatico. Risulta evidente quindi che se 
dal calcolatore questi criteri non vengono 
emessi, eventualità probabile, bisogna te¬ 
nerne conto nella realizzazione della inter¬ 
faccia al fine di comandare la stampa in 
modo corretto. 

Altra caratteristica della telescrivente è 
quella di riconoscere come segnale un 
loop di corrente di 20 mA. 

L’interfaccia seriale qui presentata, ol¬ 
tre alla serializzazione dei dati a 110 baud, 
provvede, se necessario, a generare il ritor¬ 
no carrello e l’interlinea automaticamente 
senza perdere dati significativi in uscita al 
calcolatore. Può inoltre, dopo aver contato 
i caratteri emessi verso la telescrivente e 
aver raggiunto il numero programmato, 
generare automaticamente il ritorno car¬ 
rello e l’interlinea evitando così la sovrap¬ 
posizione di più caratteri a fine linea. 



FACCIA 


TELESCRIVENTE 
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ingresso parallelo 


dal calcolatore 

bitl 2 3 4 5 



programm.n. caratteri 


L’interfaccia, come si vede dalla figura 

1, è composta da un serializzatore, un rico¬ 
noscitore di ritorno carrello, un generatore 
di ritorno carrello e interlinea e da un con¬ 
tatore di caratteri. 

Schema elettrico 

Serializzatore e driver teletype in figura 

2 . 

Questo blocco, il più importante, prov¬ 
vede a multiplexare attraverso l’integrato 


X,, i dati in ingresso dato 0-6 in un’unica 
uscita. 

La temporizzazione viene ottenuta tra¬ 
mite l’integrato X 3 , un 555 in configurazio¬ 
ne oscillatore astabile con la frequenza di 
110 Hz, e dal divisore binario X 2 che prov¬ 
vede a comandare il multiplex 4051 con i 
segnali A B C D. 

L’avvio del serializzatore viene coman¬ 
dato dal data strobe disponibile in uscita 
dal calcolatore e invertito dal nand X 4 . Al 
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6 7 6 9 10 11 


D 

n 

D 

4 

b 

6 


—i-r 

stop 


- - o+TTY 

__ o _current 

°~ loop 

uscita seriale verso 
la telescrivente 


figura 2 


Serializzatore e driver TTY. 

Dy 

o 

Ro 

4,7 MQ 

q, 

2N1711 

R, 

3,3 kQ 

Qi 

BC317 

^2 

100 kQ, trimmer 

e 3 

BC317 

R 3 

10 kQ 



*4 

1 MQ 

X, 

4051 

*5 

39 kQ 

X » 

4029 

r b 

3,9 kQ 

X 3 

555 

R? 

47 Q, trimmer 

X i 

4011 

R a 

4,7 Q 



R 9 

1 kQ 



R)o 

330 0 



Ru 

47 0 



c, 

5 nF 



C, 

100 nF 



C 3 

100 nF 



C 4 

47 nF 





+5V 
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R l2 1MQ 

R t3 47 kQ 

Ri 4 47 kQ 

R , 6 3,3 kQ 

r, 6 ìo&q 

T? 17 100 kQ, trimmer 

Ri s 47 TcQ 

/?i 9 6§ TcQ 

7? 2 0 6§ AQ 

7? 2I 7 Affi 

C 5 700 /lF 

C e 5 nF 

C ? 47 nF 

C s 100 nF 

Du+D m IN4148 

Q 4 BC308 

Qs BC308 

X 5 4001 

4013 

X 7 4028 

X e 4029 

Xr ó 555 

X ]0 4011 



termine del ciclo viene generato verso il 
calcolatore il segnale busy che allo stato 
basso abilita l’avvio di un nuovo ciclo. 

Di questo blocco fa parte anche il gene¬ 
ratore a corrente costante che, pilotato dai 
livelli logici in uscita da X 4 c, ha il compito 
di comandare il loop di corrente a 20 mA 
della teletype. 

I transistori Q,, Q 2 possono, se necessa¬ 
rio, essere sostituiti da un optoisolatore 
che in questo prototipo non si è ritenuto 
necessario utilizzare. Questo blocco è suf¬ 
ficiente per l’interfacciamento della telety¬ 
pe al calcolatore mentre i blocchi seguenti 
possono essere omessi se non ne sono ri¬ 
chieste le prestazioni. 

II primo blocco opzionale in figura 3, 
connesso allo schema di figura 2 attraverso 
i punti indicati nei cerchi numerati, con¬ 
sente tramite l’and formato dai diodi D,,^- 
D, 7 e i norXsB eX 6 c, di riconoscere il crite¬ 
rio di ritorno carrello emesso dal calcolato¬ 
re. 

Consente inoltre di avviare il generato¬ 
re di ritorno carrello e interlinea e di bloc¬ 
care i dati emessi dal calcolatore tenendo 
alto il livello del segnale busy per tutto il 
tempo richiesto dall’esecuzione di queste 
operazioni. La temporizzazione di questo 
blocco è ottenuta tramite X 9 , un altro 555 
in configurazione astabile con frequenza 
110 Hz, dal divisore binario X 8 e da X 6 , 
doppio flip-flop D. Per completare il fun¬ 
zionamento del generatore di ritorno car¬ 
rello e interlinea si fa uso dell’integrato X 7 , 
un decoder BCD/decimale. 

La seconda opzione è costituita dal con¬ 
tatore di caratteri programmabile mostrato 
in figura 4 che, connesso ai precedenti 
blocchi, consente di attivare il generatore 
di ritorno carrello e interlinea dopo un nu¬ 
mero prefissato di caratteri. 

Il blocco è costituito dal doppio conta¬ 
tore decimaleX,, e dalle sezioni B-C diX )0 
che concorrono alla formazione dei segna¬ 
li di controllo necessari. Il riconoscimento 
del numero programmato è ottenuto attra¬ 
verso l’and formato dai diodi D 3C ri-D 37 . 

Per facilitare la comprensione del fun¬ 
zionamento dell’interfaccia, si possono 
notare in figura 2 le forme d’onda rilevate 
sul prototipo durante il funzionamento. 
Più precisamente, sempre in figura 2, al 
tempo 2, F, mostra un ritorno carrello, in 
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Contatore di caratteri programmabile. 


R n 47 kQ 
£> 30 + 2)37 IN4148 
X u 4518 
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fò 


r ji _n_ n n n 

9 


JI 


F,o 


JI 


figura 5 



ASCII codice 13. 

In F 4 il riconoscimento di questo crite¬ 
rio e in F 6 la generazione del ritorno carrel¬ 
lo e interlinea. Osservando ancora la figura 
2, F 8 ci indica il raggiungimento del nume¬ 
ro dei caratteri programmati da parte del 
contatore. F 8 , insieme al segnale F 9 che in¬ 
dica il completamento dell’ultimo caratte¬ 
re da stampare forma il segnale F l0 che, dal 
tempo 5 al tempo 7, comanda un ciclo di ri¬ 
torno carrello e interlinea. 


Tarature e predisposizioni 

Le sole tarature richieste sono quelle 
per la messa in frequenza dei due oscillato¬ 
ri X 3 , X 9 e la regolazione della corrente del 
driver della teletype. 

Per la messa a punto degli oscillatori si 
deve misurare una frequenza di 110 Hz sul 
pin 3 degli integrati X 3 , X 9 dopo aver ese¬ 
guito i ponticelli B, - B 2 che ne forzano il 
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muli ip lexerl demultiplexer 
singolo a 8 canali 


in/out^ 
out/in 
in/out <0 


Vss 


1 


16 

2 


15 

3 


14 

4 

5 

405 / 

13 

12 

6 


11 

7 


10 

8 


9 


-o ?in/out 


-B 


contatore avanti/indietro 
binario/decimale preset tabi le 


enable - 

1 ^ 

16 

. Q4- 

2 

15 

Jàm/d - 

3 

14 

input su - 
carry in - 

[5 M29 

13 

12 

Q1 - 

6 

11 

carry out - 

7 

10 

Vss~ 

6 

9 


clock 

-0.3 

-3\jam 

inputs 


-Vc.c- i 
tng.-2 ,-,- 
output -3 
reset- 4 




quadruplo nor 
a 2 ingressi 


ETTI? jy 



doppio flip-flop D 
4013 



decodij 
BCD -fi 


4- 
2 

OH 
7 
9 - 

5 - 

6 - 


^ss 


t: 


40 . 
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- + Jcc 

- aischarge 
-threshold 
-Vcontrol 


quadruplo nand 
a 2 ingressi 



calore 

minale 


doppio contatore 
decimale 


\e 


16 

~Vdd 

cloki - 

i 


W 

15 

~3 

cToki - 

2 


15 

là 

-1 

Al - 

3 


là 

13 

12 

-B 

-C 

B1 - 
CI - 

4 

5 

4518 

13 

12 

11 

-D 

DI - 

6 


11 

IO 

-A 

reseti - 

7 


IO 

9 

-8 

^ss " 

6 


9 


-Vdd 

-reset 2 

-D2 

-C2 

-B2 

-cfejw 

-clok 2 



funzionamento agendo su R 2 e R, 7 . 

Il driver della teletype deve erogare 20 
mA e la regolazione viene effettuata, eoi 
tester connesso ai punti 1 e 2, agendo su 
R 7 . 

Predisposizioni 

B,, B 2 , se eseguiti, forzano al funziona¬ 
mento gli oscillatori X 3 e X 9 ; vanno rimos¬ 
si dopo la taratura, 

B 3 , se eseguito a ogni ritorno carrello 
generato dal calcolatore, fa si che venga ag¬ 
giunto dall’interfaccia il criterio interlinea. 

B 4 , se eseguito, comanda il posiziona¬ 
mento della teletype su una nuova linea 
dopo il raggiungimento del numero pro¬ 
grammato. 

J A i ponticelli 3-8 programmano in codi¬ 
ce binario le decine dei caratteri da stam¬ 
pare. 

Jb i ponticelli 1-8 programmano le unità 
dei caratteri da stampare. 

Conclusione 

L’interfaccia è stata realizzata per adat¬ 
tare una teletype ASR33 a una uscita per 
stampante parallela di un Child Z. È stata 
collegata a quest’ultimo direttamente ai 
port input/output e ne utilizza la alimenta¬ 
zione a +5 V. 

Il montaggio del prototipo dell’inter¬ 
faccia è stato effettuato su di una basetta 
forata eseguendo con fili la connessione 
fra i componenti. 

Il funzionamento, dopo diversi mesi di 
utilizzo, non ha presentato alcun inconve¬ 
niente. 

Augurandomi di essere stato di qual¬ 
che utilità a qualche altro lettore, porgo 
cordiali saluti. Mi ritengo a disposizione 
per qualsiasi chiarimento. 


FINE 
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ing. Gianni Becattini 


U na delle caratteristiche più attraenti 
del microcomputer G5 è certo quella 
della grafica. 

11 semplice ed economico G5 fornisce infatti 
in questo senso delle prestazioni veramente 
buone. 


G5 ARTISTA 


Per dare un esempio di ciò, ecco che vi 
presento alcuni semplici esempi di pro¬ 
grammi che danno dei risultati abbastanza 
spettacolari. 

PROGRAMMA 1 - Questo programma 
produce degli splendidi disegni “riflessi” 
su se stessi. Il meccanismo di base è sem¬ 
plicissimo; si scelgono a caso due coppie di 
numeri X e Y (linee 40-50) e un colore per 


f* 

f. 

.. t V, V 

H 

, ,■ «* 


k . 

y£'i 



f ’ 

ti 

te.ifc. 

u 

V . r ' 

i 

■Jijs 

li 
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il tracciamento. Quindi si valutano due 
funzioni f x (x,y) e f y (x,y) (linee 60-70) che 
rappresentano le coordinate del punto da 
illuminare. Successivamente si usano f x e 
f y come x e y per valutare le nuove f x e f y e 
così via ciclicamente. Dopo un certo nu¬ 
mero di passi, anch’esso casuale (linea 55) 
si scelgono una nuova coppia di partenza 
X, Y e un nuovo colore per la INK. L’effet¬ 
to di riflessione è ottenuto accendendo, 
per ogni coppia elaborata, una serie di pun¬ 
ti simmetrici (frasi da 95 a 124). Variando 
le funzioni f x e f y (linee 60-70) si ottengono 
i diversi effetti; in ogni caso, data l’abbon¬ 
danza di funzioni RND, ad ogni esecuzio¬ 
ne l’effetto può differire sensibilmente an¬ 
che a parità di funzioni. 

Per mia sbadataggine ho dimenticato di 
segnare le funzioni scelte via via che face¬ 
vo le foto: ecco comunque un elenco da 
usare per base di esperimenti, da sostituire 
a quelle presentate nella lista del program¬ 
ma: 

X=X-Y/2 X=X-Y/8 

Y=Y+X/2.1 Y=Y+X/8 


X=X-Y/3 
Y=Y+X/1.5 

X=X-2*Y 
Y=Y+X/1.1 

X=X-Y/2 

Y=Y+Y/4 


X=X+Y/2 

Y=Y-X/2 

X=X-Y/8 

Y=Y-X/8 

X=X-(Y/l.l) 
Y=Y-X/2 


X=X-Y 

Y=Y+X/2 


1 LET G=2 


.10 

GRAPH 


11 

GRflPH 


15 

LET 

6=255 


20 

ORG 

127,95 


40 

LET 

X=RNDC0J*A 


50 

LET 

Y=RNDC03*6 


52 

INK 

RNDC13X15 


55 

FOR 

1=1 TO 70XRNDC0J 

60 

LET 

X=X-Y/8 


70 

LET 

-< 

n 

-< 

+ 

X 

\ 

CO 


75 

1F 6BSCY1>131 THEN 

130 

76 

1F 6BSCX3> 191 THEN 

130 

80 

LET 

L=ABSCX3/G 


90 

LET 

I1=6BSCY3/G 


95 

SET 

L,n 


100 

SET 

L,-n 


110 

SET 

-L,-n 


120 

SET 

-L,n 


121 

SET 

n,L 


122 

SET 

-n,L 


123 

SET 

-n,-L 


124 

SET 

n, -l 


130 

NEXT 


140 

GOTO 40 



X=X-2*Y 

Y=Y+X/3 


X=X-2Y 

Y=Y+2*X 


Programma I 


Altre funzioni sono lasciate alla vostra 
fantasia. 
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PROGRAMMA 2 - Questo programma 
produce invece degli stupendi disegni che 
sembrano l’immagine generata da una ret¬ 
ta in movimento; complesse ma a loro mo¬ 
do regolari superfici geometriche di gran¬ 
de effetto. Apparentemente il crearle è 
complicatissimo; basta conoscere il trucco 
per rendersi conto del contrario. 

Si tratta semplicemente di questo: 

1) creare una palla che rimbalza contro i la¬ 
ti dello schermo (vedere l’esempio sul mio 
libro “IL COMPUTER È FACILE” edito 
dalle edizioni CD a pagina 10.12); 

2) crearne un’altra identica alla prima che 
rimbalza per conto proprio; si hanno così 
due palle indipendenti che vagano sullo 
schermo con legge abbastanza casuale; 

3) unire, a certi intervalli di tempo, le due 
palle con un segmento (linea 120). La suc¬ 
cessione dei segmenti rappresenta proprio 
il disegno che desideravamo produrre. 

Anche in questo caso vale una notevole 
casualità; può quindi avvenire che un dise¬ 
gno venga bello e uno brutto, così come 
può avvenire che un disegno inizialmente 
bello si deteriori col procedere del traccia¬ 
mento o viceversa. 


5 GRHPH Programma 2 1 

6 GOSUB 2000 2 

7 INK 11 2 

10 LET X=RNDC03*255 2 

20 LET Y=RNDC03*191 1 

30 LET L=RNDC03*255 1 

40 LET M=RNDC03* 191 1 

50 LET LI=15:LET U=7 1 

100 GOSUB 1000 1 

115 LET N1=N1-1 1 

116 IF NI=0 THEN GOSUB 1000 2 

119 SPNOU 0,X, Y:SPF10U 1,L,N 2 

120 PLOT X,Y,L,n 2 

140 IF X+A>255 THEN LET 2 

.145 IF X + A<0 THEN LET 2 

150 IF Y+B>191 THEN LET B=-B 2 

155 IF Y+B<0 THEN LET B=-B 2 

.160 IF L+C>255 THEN LET C=-C 2 

165 IF L+C<0 THEN LET C=-C 2 

170 IF N+D>191 THEN LET D=-D ' 2 

175 IF T1+D<0 THEN LET D=-D 2 

180 LET X=X+A;LET Y=Y+B 2 


Figure ottenute con il programma 2. 


















90 LET L=L+C:LET f1=H+D 
10 LET C0=RNDC01*200 
30 IF C0=1 THEN GOTO 10 
35 GOTO 115 
000 LET A=RNDC0J*LI-U 
010 LET B=RND(0D*L1-U 
020 LET C=RNDC0D*U-U 
030 LET D=RNDC03*U-U 
340 LET N1=RNDC0D*20+10 
350 RETURN 
000 SPCOL 0,15 
010 SPCOL 1, 15 
020 SPTYP 0,0,2 
030 SPDEF 0,0,OF 
340 SPDEF 0,1,OOOXXF 
350 SPDEF 0,2,OOXXXXF 
060 SPDEF 0,3,OXXXXXXF 
370 SPDEF 0,4,OXXXXXXF 
380 SPDEF 0,5,OOXXXXF 
390 SPDEF 0,6,OOOXXF 
120 SPFORd 1,0 
130 RETURN 


1 GRAPH Programma 3 

10 FOR A=5 TO 19 

20 FOR J=1 TO 7 STEP .3 

30 SET A* *J*COSCJ3/2+110,A*J*SINCJ1+100 

40 NEXT 

50 NEXT 


Programma 4 

10 GRAPH 

50 FOR A=2 TO 19 
60 FOR J=1 TO 7 STEP .1 

70 SET A*CJ++4*SINCJ3J*COSCJ3 + 11'Ì0,A*CJ+2 

*SINCJD1*SINCJD+100 
80 NEXT 

85 INK 15*RNDC03 
90 NEXT 


PROGRAMMI 3 e 4 - Questi non sono fari¬ 
na del mio sacco e li riporto solo a titolo di 
esempio. Il programma 4 è molto lento. 
L’effetto non è sconvolgente per nessuno 
dei due ma pur sempre interessante. 



Figura ottenuta con il programma 3. 


Figura ottenuta con il programma 4. 
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Anche su carta la grafica 
del G5... e a 4 colori 

Tutti coloro che hanno avuto modo di 
adoperare il G5 hanno potuto apprezzare 
le sue elevate caratteristiche grafiche. Da 
quando è uscito suXÉLECTRON l’articolo 
sulla interfaccia per stampante, molti mi 
hanno chiesto suggerimenti sul modello a 
mio avviso più indicato. 

Oggi esistono in commercio moltissimi 
modelli diversi di stampante; alcune di es¬ 
se vengono definite “grafiche” anche se 
sono piuttosto difficili da usare stante la 
necessità di accedere a singoli punti di una 
matrice e senza possibilità di far arretrare 
la carta. Stanno tuttavia diffondendosi 
sempre più le stampanti “a penna” dopo la 
loro introduzione che, perlomeno sulle 
calcolatrici evolute, mi sembra che sia av¬ 
venuta ad opera della giapponese Sharp, In 
esse la scrittura avviene mediante una spe¬ 
ciale penna a sfera che, grazie al movimen¬ 
to del carrello e alla possibilità del rullo di 
girare anche alPindietro, scrive con tratto 
perfettamente “continuo” come le norma¬ 
li penne a sfera. In virtù delle ridottissime 
dimensioni dell’organo di scrittura, queste 
stampanti sono di solito munite di ben 
quattro “refill”, montati su un tamburo gi¬ 
revole tipo “Colt” comandabile da pro¬ 
gramma. Si ottiene così la scrittura in quat¬ 
tro diversi colori e con una qualità davvero 
buona. 

Questa architettura si presta ottima¬ 
mente a conseguire simultaneamente due 
obiettivi; quello della normale stampante 
e quello del plotter, di quella meravigliosa 
macchina cioè che produce perfetti disegni 
su carta. 

Chi non ha mai, più o meno segreta- 
mente sognato di possedere un plotter? 
Forse solo coloro che non l’hanno mai vi¬ 
sto in funzione con la sua penna veloce e 
sicura che quasi sembra guidata da una 
mano fatata (mi sono lasciato trasportare, 
eh?). 

Queste nuove stampanti “Colt”, come 
le chiamo io in onore al vecchio West e al 
loro tamburo girevole, hanno inoltre una 
stupefacente risoluzione: il passo minimo 
di cui può essere mossa la penna è di soli 


due decimi di millimetro. Anni fa, un plot¬ 
ter con questa risoluzione costava fior di 
milioni (di allora). 

Sul mercato esistono vari modelli di 
“Colt”. 



La stampante di cui si parla nell’artìcolo. 


La mia scelta è caduta sulla CGP-115 
della Radio Shack, non per ragionamento 
ma perché, per una serie di motivi, ne ero 
entrato in possesso. Malgrado la mia tiepi¬ 
da simpatia verso la Casa americana, sono 
rimasto davvero entusiasta delle sue pre¬ 
stazioni, grazie anche al mio microproces¬ 
sore incorporato che la rende alquanto “in¬ 
telligente” e facilissima da usare. La carta 
viene vista come un piano ove si trovano 
delle coordinate cartesiane con l’origine 
spostabile a piacere. Le direzioni degli assi 
sono quelle convenzionali, per cui non è 
necessario fare calcoli o contorsioni men¬ 
tali. I movimenti sono comandabili in sen¬ 
so assoluto (cioè rispetto all’origine degli 
assi) o in senso relativo alla posizione cor¬ 
rente della penna. Per tracciare una retta 
basta il seguente comando 

LPRINT “D200-20” 

perché la penna si sposti, tracciando, dalla 
posizione attuale al punto di coordinate 
X=200, Y=—20. In direzione orizzontale 
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L'interfaccia stampante del G5. 



sono disponibili 480 punti di scrittura su 96 
mm. In direzione dell’asse Y non ci sono 
limiti. 

L’interfacciamento al G5 è facilissimo. 

Basta innestare il connettore tipo Cen¬ 
tronics nell’apposito alloggiamento sul re¬ 
tro della CGP-115 (è necessaria l’interfac¬ 
cia stampante già presentata sul numero 


scorso di XÉLECTRON), Prima di fare ciò 
è opportuno predisporre i microswitch di 
personalizzazione, sempre accessibili dal 
retro. 


Suggerisco questa disposizione: 


interfaccia 

parallela 

80 car/linea 

No-Auto 
Line Feed 



codice 

ASCII 
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Riporto qualche figura con degli esem¬ 
pi di elaborati. 

Sono rimasto davvero entusiasta di 
questa stampante “Colt”. È prevedibile 
che altri Costruttori entrino presto in lizza 
su questo tipo dì oggetti, per cui prima 
dell’acquisto documentatevi bene per ave¬ 
re un panorama aggiornato. In ogni caso il 
G5 dotato di una stampante a quattro colo¬ 
ri è veramente una piccola meraviglia! 


MASSICO 



ACCELERAZIONE 

OELOCITA’ 

MOTO DEL PISTONE 


Diagramma di velocità e accelerazione del pistone. 

Si tratta dello sviluppo del problema presentato sul mio 
libro “Il computer è facile”. 

È un peccato che non si possano apprezzare i colori. 



10 

LPRINT 

CHRSC183 


15 

LPRINT 

"C0“ 


30 

LPRINT 

"I" 

Lis 

40 

LPRINT 

"XI,50,3" 

pre 

50 

LPRINT 

" H " 

fun 

60 

LPRINT 

"110,200" 

COTI 

Èu 

70 

LPRINT 

"X0,-20,20" 

zioi 

71 

GOSUB 

500 

Il lì 

75 

LPRINT 

"SI " 

rat 

85 

REN COLORE UERDE 


86 

LPRINT 

"C2" 


87 

LPRINT 

"110,-230" 


88 

LPRINT 

"PUELOCITA’" 


89 

LPRINT 

"110,0" 


90 

FOR 1 = 

1 TO 400 



LET Y=SINt1*3,14/2003*200 
LPRINT “D",STRICI 3, ",” , STR$ 
NEXT 

REM COLORE ROSSO 
LPRINT ''C3" 

LPRINT "110, -270" 

LPRINT "PACCELERA2IQNE" 
LPRINT "110,200" 

FOR 1=1 TO 400 

LET Y=C0SC1*3.14/2003*200 

’D",STR$(13,",", STR$ 


100 
110 
120 
130 
340 
141 
143 
145 
150 
160 
170 LPRINT 
180 NEXT 
185 LPRINT 
130 LPRINT 
LPRINT 
LPRINT 
LPRINT 
LPRINT 
LPRINT 
LPRINT 
LPRINT 
LPRINT 
LPRINT 
STOP 
LPRINT 
LPRINT 
LPRINT 
LPRINT 
LPRINT 
LPRINT 
LPRINT 
LPRINT 
LPRINT 
RETURN 
LPRINT 


200 

210 

220 

230 

240 

250 

260 

270 

280 

400 

500 

510 

520 

530 

540 

550 

560 

570 

580 

530 

1000 


"Q0" 

"( 10 , 210 " 

"SI " 

"C0" 

"PNASSINO" 
"110,-230" 
"pniNino" 
"1140,-350" 
"S3" ■ 

"CI " 

"PHOT0 DEL 


PISTONE 1 


"S0" 

" 11100 ,- 12 " 
"PI.57" 
" 11200 ,- 12 " 
"P3.14" 
"11300,-12" 
"P4.21" 
"H400,-12" 
"P6.28" 


"H" 
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a del programma che ha generato il diagramma 
cedente. L'ho fatto in fretta, per la smania dì veder 
donare la stampante, per cui non è certo da imitare 
.e esempio di brillante programmazione. 
f ile tuttavia per chi vuole decifrare la logica di fun- 
lamento del microcomputer interno alla CGP-115. 

è stato eseguito con due delle 64 grandezze di ca¬ 
ve selezionabile. 


INTCY33 


JNTCY33 


M5 LPRINT *710,200” 

150 FOR J“1 IO 400 

]60 LET Y-COSt1*0.ì4/2003*200 

170 LPRINT ”0‘\.STR«tn, ,, I ' ,STR«UNTCY)} 

180 NEXT 

185 LPRINT "Q0“ 

190 LPRINT ■710,210“ 

200 LPRINT “SI" 

210 LPRINT , 'C0“ 

220 LPRINT "PHfXSSIMO*’ 

230 LPRINT *710,-230“ 

240 LPRINT "PniNlMO'' 

250 LPRINT *7140,-350“ 

260 LPRINT “S3'* 

270 LPRINT “CI" 

280 LPRINT “PflOTO OEL PISTONE" 

400 STOP 

500 LPRINT “S0” 

510 LPRINT ”11100,-12“ 

520 LPRINT “Pi.57" 

530 LPRINT ‘71200,-12“ 

540 LPRINT “P3.14” 

530 LPRINT n f1300,-l2“ 

560 LPRINT “P4.71“ 

370 LPRINT ‘71400,-12“ 

580 LPRINT "P0.28” 

390 RETURN 
1000 LPRINT “H“ 


Missino 



ACCELERAZIONE 

UELOCITA’ 


MOTO DEL PISTONE 


Lo stesso diagramma del primo grafico ma con una 
gobba del S1N(X) parzialmente annerita (verde 
nell’originale). Si noti la precisione e la regolarità del 
tratto. 

Ogni eventuale imperfezione è dovuta solo alla ripro¬ 
duzione e alla stampa. 


FINE 
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ing. Gianni Becattinì 


1 1 microcomputer G5, a suo tempo pre¬ 
sentato sulle pagine di CQ (vedi n. 1 e 2/ 
83) è già stato duplicato in circa 250 esem¬ 
plari con buona soddisfazione dei rispettivi 
autocostruttori. 

Per quanto mi concerne, non un solo esem¬ 
plare di G5 è al momento in panne. 



Già quindi cominciano a pervenire ri¬ 
sultati di esperienze svariate. 


Vediamo oggi quelle del sig. Claudio 
Redolii che ha costruito ben tre esemplari 
di G5. 

Lascio quindi a lui la parola: 




Ho realizzato con soddisfazione due 
esemplari di G5 per dei miei amici e uno per 
me. Dopo prolungata sperimentazione ho 
messo a punto alcune migliorie che illustro e 
propongo: 


figura I 

Modulatore vìdeo (segnale in banda 111"). 

quarzo 27,125 MHz c.a. 

C 5,6 pF 

L 6 spire spaziate su 0 6 mm, filo 0 0,3 mm con 
nucleo e link I spira lato freddo 
AI posto de! 2N708 funziona meglio un BFR34. 

N.B. - Togliere il condensatore da 100 nF in caso il mo¬ 
dulatore venga usato con il separatore di pagina 29. 
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MODULATORE VIDEO (figura 1) -Poiché 
non tutti possiedono un monitor, ho realiz¬ 
zato un semplice modulatore bianco e nero 
per vedere l’uscita del G5 su un qualunque 
televisore. Lo stadio separatore è opzionale 
e l’ho previsto per assicurare maggiore prote¬ 
zione al costosissimo TMS9929. Sto lavo¬ 
rando a un modulatore a colori che illustrerò 
ai lettori di CQ non appena pronto. 




Lato componenti. 
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BIP PER TASTIERA (figura 2) - Desideravo il semplice circuito che riporto (secondo me 

fare in modo che alla pressione di ogni tasto è una cosa ossessiva... nota del Becattini). 

si udisse un “bip ”. Ho risolto il problema con 



CARICA ACCUMULATORI (vate solo per 
chi usa RAM C-MOS) - Il circuito di carica 
accumulatori da’ qualche problema. Secon¬ 


do il mio parere, si potrebbe modificare leg¬ 
germente il circuito incriminato come da di¬ 
segno allegato; mi riservo di provare tale mo- 


figura 3 

Carica accumulatori al Ni/Cad. 


+ 12 V, r 


■j22/jF 

25 V 


fjA 

78M05 


U 


M 


i2on< 


o 

o 




o 

V—» 

X. 


. 22fjF 
'25V 


l 


<o 

uri - 


utilizzo (alle RAM) 


± 4*1 jV 
500mA 

T Ni/Cad 


Corrente dì carica = 50 mA. 

Commento: trattasi di un generatore di corrente co¬ 
stante che utilizza come elemento attivo un regolatore 
di tensione integrato tipo pA 78M05C. La resistenza da 
1200 stabilisce la corrente di uscita a 50 mA. Il diodo 
1N4001 evita che gli accumulatori possano scaricarsi 
attraverso il regolatore quando viene tolta /alimenta¬ 
zione generale. Il diodo AY102, diodo al germanio uti¬ 
lizzato come damper nei TV, provoca una caduta di 
tensione dì circa 0,25 V onde riportare la tensione al 
morsetto di utilizzo entro limiti tollerabili per le RAM 
utilizzate. Lo zener da 5,6 V è previsto come valvola di 


sicurezza: infatti, venendo a mancare gli accumulatori, 
si verrebbe a trovare sul carico utilizzatore l'intera ten¬ 
sione di alimentazione con le conseguenze del caso! 
Il circuito utilizza degli accumulatori da 500 mA/ora, 
tensione nominale di utilizzo 1,2 Vper elemento, ten¬ 
sione di massima carica 5,6 V. Tensione utilizzabile 
dal carico compresa tra 4,55 V e 5,35 V. 

Il circuito soprastante andrebbe a sostituire l'originale 
montato sul G5 con l’accorgimento di non montare gli 
accumulatori sul circuito stampato denominato madre 
in quanto, in caso di perdite di elettrolita... 
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difica negli esemplari di prossima realizza¬ 
zione. Per tagliare la testa al toro, ho instal¬ 
lato nei G5 già realizzati il circuito del quale 
allego fotocopia, notando un notevole mi¬ 
glioramento della situazione. Per il mio 
esemplare di G5 ho già predisposto un carica 
accumulatori automatico il cui schema op¬ 
portunamente adeguato e riveduto, è stato 
tratto da un vecchio numero diElektor; esso 
provvede, dopo le modifiche, alla carica de¬ 
gli accumulatori non appena gli stessi arri¬ 
vano a una tensione minima di carica pari a 
4,4 Vper un periodo di 14 ore e con una cor¬ 


rente costante di 48 mA (accumulatori da 
500 mA/h); l’aggeggio sarà sempre in funzio¬ 
ne (è sufficiente lasciare la spina inserita nella 
rete in quanto è alimentato da un trasforma¬ 
tore indipendente da 2 VA e, qualora si tolga 
la spina, un relè provvede a isolare gli accu¬ 
mulatori dal circuito di carica onde evitare 
la scarica degli stessi. Di questo intrigo pos¬ 
siedo il master del circuito stampato grande 
poco più di una cartolina (il trasformatore è 
da c.s., un modello venduto dalla GBC a po¬ 
co prezzo), e vi assicuro che più funzionale e 
sicuro di così non si poteva fare). 


(segue figura 3) 



Carica accumulatori originale 



N.B. scollegare solo 
l‘emettitore;il resto 
lasciarlo com'è 


utilizzo 


accumulatori 


+ 12V 

f . interrompere 

■ i x f - 





~ \ 
5JSVfW 

per precauzione 


altri circuiti 


Modifica proposta da Redolft. 

Alimentando il transistor in figura con una tensione 
più elevata, la batterìa di accumulatori arriverà 
senz’altro alla massima tensione di carica. 
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Su questo ultimo argomento vorrei ag¬ 
giungere una nota. Premesso e riconosciu¬ 
to che i circuiti analogici non mi sono mai 
piaciuti, accettai il consiglio di un amico 
che mi suggeriva come realizzare la sezio¬ 
ne di carica accumulatori. In effetti, come 
afferma l’amico Redolfi, questo circuito 
non è una perla e da’ luogo a inconvenienti 
minori (esplosione delle batterie per so¬ 
vraccarico, reazioni nucleari, ecc.). L’in¬ 
conveniente non è stato però molto senti¬ 
to in quanto alla fin fine la quasi totalità 
degli utenti ha usato RAM non CMOS 
ponticellando l’alimentazione delle mede¬ 
sime e non installando la parte di ricerca. 
Ritengo tuttavia che la maniera migliore è 
quella riportata in figura 4. 



X 


figura 4 

Circuito proposto da Becaltinì. 


RAM (vale solo per chi usa RAM C-MOS) - 
Nota dolente! Sono difficili da reperire le CI 
MOS ma sembra che ultimamente il mercato 
si sia aperto e sono arrivate delle RCA a 
prezzi modici (6300 x 1). 

Ho notato purtroppo che molto spesso il 
gesto di accendere o spegnere il G5 provoca 
la modifica dì parte del programma nelle 
stesse contenuto specialmente se è di una 
certa lunghezza. Potrei suggerire di pilotare 
gli ingressi di controllo o funzione delle 
21C14 con porte del tipo “open collector” e 
resistenze di pull-up verso il +5 V cc degli ac¬ 
cumulatori; tale sistema potrebbe permettere 
di minimizzare il difetto consentendo di trar¬ 
re un effettivo vantaggio dall’uso di tale tipo 
di memorie. 


Questo inconveniente sui miei esem¬ 
plari non l’ho mai riscontrato, anche ac¬ 
cendendo e spegnendo parecchie volte di 
seguito per prova. 

Ci comunichi i risultati ulteriori dei 
suoi esperimenti. 


Al signor Redolfi va il premio, offerta dalla 
ditta SUMUS di Firenze, una scheda T -PIO 

(interfaccia parallela 2x8 bit) per il G5. 


Seguono due ghiottissime novità: la 
scheda 48K RAM e una diversa interfaccia 
cassette per il G5 più tollerante della mia 
verso registratori di vario tipo. 


Cominciamo dalla prima, di cui è brillante 
autore l’amico Mauro Meco di Firenze: 

Fino dal suo comparire, il G5 mi ha affasci¬ 
nato per le sue doti di potenza e semplicità, 
ma in particolare ho subito apprezzato, da 
buon “smanettone”, la presenza, come sulle 
macchine “grandi”, di un bus accessibile e di 
ben quattro posti scheda. Solo la capacità dì 
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memoria trovavo insoddisfacente: non appe¬ 
na ho avuto disponibile il registratore ho ra¬ 
pidamente colmato i 4K e sentivo quindi la 
necessità di qualcosa di più grande. Ecco 
pertanto che, per non riempire i quattro posti 
scheda con altrettante schede da 4K, che in 
ogni caso mi avrebbero fornito solo 16K, ho 
progettato questa scheda da 48K che ho in 
funzione da lungo tempo e che risulta perfet¬ 
tamente corrispondente allo scopo. 


La scheda 

Nel progettare questa scheda ho adottato 
un trucchetto che solo pochi anni fa mi 
avrebbe fatto rabbrividire al solo pensiero: 
ho infatti “gettato via” integralmente ben 
16K di RAM che sono presenti ma che non 
vengono utilizzati! Premesso infatti che sul 
G5 già sono utilizzati 16K per il GBASIC e 
che lo spazio di indirizzamento dello Z-80 è 
al massimo di 64K, per raggiungere i 48K 
avevo due strade: o utilizzare 3x8 = 24 chip 
4116 (chefanno in tutto 48K esatti) o usare 8 
chip 4164, che danno 64K, gettando via sen¬ 
za pietà i 16K di troppo. Questa seconda so¬ 
luzione, da me scelta, presenta i seguenti 
vantaggi: 

1) richiede un numero tre volte minore di in¬ 
tegrati; 

2) richiede un numero tre volte minore di zoc¬ 
coli; 

3) richiede una supeificie di circuito stampa¬ 
to oltre che tre volte minore; il c.s. risulta 
inoltre più semplice e più facile da collauda¬ 
re; 

4) richiede una minore potenza di alimenta¬ 
zione; 

5) richiede una sola tensione di alimentazio¬ 
ne invece che tre; 

6) costa meno (24 chip 4116 costano alla fi¬ 
ne più di otto 4116). 

Con la tecnica usata ho raggiunto un im¬ 
portante risultato: le dimensioni dì questa 
scheda non superano quelle della 4K origi¬ 
nale. Un unico problema: il consumo di po¬ 
tenza è rilevante e richiede modifiche al G5. 
Si deve sostituire il 7805 con un 78H05. Il 
trasformatore inoltre deve avere il seconda¬ 
rio che da’origine a! 5 V sufficiente a fornire 
almeno una corrente di 3+4 A. 


Dettagli circuitali 

A parte le otto 4164 (da U7 in avanti) tut¬ 
te collegate in parallelo, escluso natural¬ 
mente il pin di Ari e D oub vediamo a cosa 
seivono gli altri sette integrati presenti sulla 
scheda medesima. 

Metà del 74LS139 (Uf sene a decodifi¬ 
care gli indirizzi da 4000 a EFFE(vedi sopra) 
tramite A14-A15 e MREQ, l'uscita viene poi 
invertita tramite una sezione del 74LS10 
(U 2 J e va all’altra metà del 74LS139 per per¬ 
mettere in unione al segnale di RD (read) di 
abilitare il 74LS244 (U15) all’uscita, verso il 
bus, dei dati che vogliamo leggere dalla me¬ 
moria stessa. 

Lo stesso segnale prov enient e da U 2a ser¬ 
ve a genera re il segnale di RAS, in presenza 
del RFSH per rinfresc are i dat i scritti in me¬ 
moriale in ass enza d el RFSH ma in unione 
al CAS e con il WR alto si potrà rileggere il 
dato scritto. Il solito segnale di U 2& va anche 


§ 


U , 2 


RAS 


< \ a ì > 


MUX 


$ 


CAS 


X ( 7\ s A > 


Tempohzzazioni della scheda 48 k (Meco). 


- 33 - 







































































34 



























































































































































35 


















































































































































































cio 



Disposizione dei componenti (Meco). 

a una sezione di un 74LS74, esattamente 
U 3 b, qui insieme al segnale di clock si genera 
un segnale attivo alto alla sua uscita Q che 
serve a commutare i due multiplexer (MUX) 
74LS15 7 (Ur-U r) tutto Qu esto se non è pre¬ 
sente lo RFSH , infatti con RFSH attivo vie¬ 
ne impedita la generazione del segnale 
MUX. 

L’alt ra sez ione dell’U 3 sene a generare il 
segnale CAS. 

Come dicevamo più sopra, gli indirizzi in 
ingresso della 4164 sono solo otto, ma allora 
si possono indirizzare solo 255 celle dì me¬ 
morie? No pe rché (vedi figura) quando è pre¬ 
sente il RAS alle memorie viene presentato 
un indirizzo che va da 0 a 255 (tramite A 
A ? ) e il segnale di RAS serve a caricare in un 
registro interno alle 41 64 que sto valore e, co¬ 
me dicevamo prima, il RAS sene a selezio¬ 
nare la riga, poi sì commutano con il segn ale 
MUX i 74LS157 e si rende attivo il CAS ; al¬ 
lora la memoria caricherà in un secondo re¬ 
gistro questo nuovo dato che può essere com¬ 
preso tra 0 e 255 (tramite A B +A ÌS ) indiriz¬ 
zando questa volta la colonna da seleziona¬ 
re e allora 256x256 = 65535 bit indirizzatili. 


Installazione 

L ’installazione è semplicissima. La sche¬ 
da può essere inserita in qualsiasi slot e gra¬ 
zie ai circuiti stampati da me predisposti il 
risultato è sicuro. Non sono richieste messe a 
punto. Si osservi che il GBASIC si comporte¬ 
rà in modo leggermente diverso: si noterà che 
alcuni comandi richiedono infatti più tempo 
per essere eseguiti. Ad esempio RUN, E RA¬ 
SE o la semplice inserzione di una riga. Que¬ 
sto perché questi comandi operano su tutta 
la memoria (ad esempio, RUN azzera tutto 
lo spazio variabili) che è ora dieci volte più 
grande. Niente paura però: la bufferìzzazio- 
ne della tastiera e il suo funzionamento ad 
interruptfanno si che il G5 “riceva " le battute 
anche durante queste pause; non sì perdono 
caratteri e l’operazione non viene in alcun 
modo rallentata (lo stesso fenomeno è chia¬ 
ramente avvertìbile quando sì risponde “N” 
al dialogo iniziale). 
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Secondo le usanze della rivista, elargi¬ 
sco al Meco materiale vario offerto nell’oc¬ 
casione dalla ditta SUMUS di Firenze che 
fra l’altro può fornire il c.s. della 48K. 

Cediamo ora la parola all’attivissimo 
Claudio Redolii (via Moraro 26 - Monselice 
(PD)) che ci presenta una interessante in¬ 
terfaccia per cassette. 


Prendendo lo spunto da un articolo di 
CQ, invio lo schema di una interfaccia cas¬ 
sette da me realizzata per il G5 che utilizzo 
con buoni risultati con registratore Philips 
N2204 che, essendo dotato di un efficace 
CAG, si è dimostrato all’altezza del caso. 

Le regolazioni consistono nel girare il 


trimmer P 7 fìno a leggere 2,5 V cc sul pin 5 di 
IC e il P 7 a metà corsa. Con registratori non 
dotati di CAG è bene verificare di non satu¬ 
rare il nastro con segnali troppo forti onde 
evitare un notevole appiattimento dei picchi 
registrati. 

In riproduzione, il livello di uscita del re¬ 
gistratore deve essere posizionato in modo 
tale da consentire un fievole ascolto in alto¬ 
parlante onde non amplificare un po’ troppo 
il rumore di fondo. 

Alla prova del nove, l’aggeggio ha rara¬ 
mente fornito errori e comunque solo in fase 
di lettura o verifica del nastro, segno eviden¬ 
te che possono essere raccolti rumori elettrici 
dai circuiti interni del registratore o da una 
commutazione in PLA Y eseguita con indeci¬ 
sione. 



Schema elettrico interfaccia registratore (Redoifi). 







































Il circuito è inseribile comodamente nel 
mobile del G5, nel mìo caso sarà parte inte¬ 
grante di un registratore che sto realizzando 
con la mia solita caparbietà e che, qualora 
mi arrivi la scheda relativa a un ampliamen¬ 
to delle porte parallele di ingresso uscita da 
Lei promessami in una Sua precedente nota, 
sarà controllabile direttamente dalla tastie¬ 
ra del G5. 



Interfaccia registratore. Circuito stampato, lato rame 
(Redolfì). 

N.B. - Il IrìmrnerPs ha ìfori un po’ ravvicinati (per erro¬ 
re). 


Al Redolfi andrà in omaggio una inter¬ 
faccia seriale per G5. 


FINE 
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dottor Livio Andrea Bari 


I n questo periodo molti di noi radioama¬ 
tori e inguaribili hardwaristi, sconvolti 
dal crollo dei prezzi dei calcolatori “perso¬ 
nal”, si sono fatti tentare e hanno acquistato 
uno ZX81 o uno Spectrum. 

Io ho acquistato lo ZX81 senza alimentatore 
perché Danilo Risso mi aveva avvertito che 
dentro al power supply (alimentatore) Sin¬ 
clair c’era molto poco in termini di compo¬ 
nenti. 

Lo stesso discorso vale per l’alimentatore da 
9 V, 1,4 A destinato allo Spectrum. 

Per alimentare in modo “professionale” 
questi personal computer della Sinclair ho 
realizzato per me e per alcuni amici diversi 
prototipi. 

DIVERSE 

SOLUZIONI 

“PROFESSIONALI” 

PER AUMENTARE IGOMPUTER ZX81, 

SPECTRUM E AXESSORI 
(S1ÀMIANTI,EGC.) 

Perché conviene realizzare da sè l’ali¬ 
mentatore? 

Per ottenere i seguenti vantaggi: 

1) La tensione d’uscita dei nostri alimen¬ 
tatori è una vera corrente continua pra¬ 
ticamente priva di ripple (ronzìo o resi¬ 
duo di alternata) mentre gli alimentato- 
ri originali Sinclair presentano qualche 
volt picco-picco di ripple. 
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2) Essendo la tensione d’uscita dei nostri 
alimentatori stabilizzata, il regolatore di 
tensione “on board” intorno al calcola¬ 
tore (un 7805 in contenitore plastico) 
funziona con circa 3,5 V fissi tra i termi¬ 
nali di ingresso e d’uscita, pertanto sta¬ 
bilizza i 5 V necessari ai circuiti integrati 
interni in modo perfetto e in particolare 
dissipa meno potenza in calore e quindi 
scalda molto meno che col power sup- 
ply originale: potete far funzionare il 
computer molto più a lungo senza do¬ 
ver temere danni da surriscaldamento. 

3) Se l’ENEL vi rifila una tensione di rete 
inferiore alla nominale (ad esempio 190 
V invece che 220 V) questo fatto non 
pregiudica il funzionamento del calco¬ 
latore. 

4) I disturbi presenti sulla rete elettrica 
non raggiungono il calcolatore. 

5) In tutti i nostri schemi è presente un 
pulsante di reset che, per dirla con Ris¬ 
so, serve a “sbloccare i vostri loop meno 
felici”. 


figura 1 

i interruttore a levetta 250 V, 1 A 
C* condensatore elettrolitico da 4.700 \iF, 25 V L 
T trasformatore da 30 VA con secondario da 12 V 
Po ponte a diodi da 200 V, 3 A, sostituibile da 
quattro diodi IN5402 o BY251 o equivalenti 
connessi come da schizzo a lato: 



figura 2 

T trasformatore coti primario 220 V, secondario 
a presa centrale 12 V -t- 0 12 V, 1,5 A 

Di, D 2 diodi da almeno 3 A (ad esempio BY251 o 
IN5402) 

C* 4.700 \tF, 25 V L , elettrolitico 


Sono previste tre opzioni per il gruppo 
trasformatore raddrizzatore (figure 1 e 2) e 
tre per lo stabilizzatore di tensione (figure 
3, 4 e 5). 

L’unione di uno dei tre possibili gruppi 
trasformatore-raddrizzatore con uno dei 
tre stabilizzatori permette di ottenere un 
alimentatore da rete stabilizzato. Chi pos¬ 
siede già un alimentatore con tensione di 
uscita in corrente continua di 12-H5 V con 

D, 
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corrente non inferiore a 1,5 A può utiliz¬ 
zarlo in sostituzione del gruppo trasforma¬ 
tore-raddrizzatore. 

In figura 3 vediamo uno stabilizzatore 
che usa il famoso regolatore di tensione 
LM317T. 

Lo schema è leggermente più comples¬ 
so di quello usato normalmente per alcuni 
accorgimenti (protezioni) che ne aumen¬ 
tano l’affidabilità. 

A causa delle inevitabili tolleranze di 
costruzione dell’integrato LM317T e delle 
resistenze è necessario procedere a una ta¬ 
ratura della tensione d’uscita che può esse¬ 
re compresa tra 8 e 9 V. 

Costruito il circuito senza collegare R 3 , si 
misura la tensione d’uscita stabilizzata che 
risulterà superiore a 9 V e si collega R 3 (da 
scegliere tra i valori 8,2; 10; 12; 15; 18 kQ) 
in modo da ottenere una tensione compre¬ 
sa tra 8 e 9 V. 

Io ho inserito R 3 = 10 kQ per una ten¬ 
sione d’uscita di 8,2 V e lo ZX81 funziona 
ottimamente. 

Se non trovate in vendita lo LM317T 
potete costruire lo stabilizzatore di figura 4 
con un 7805 o quello di figura 5 con un 
7808. 

Per quanto concerne lo schema di figu¬ 
ra 4, io ho ottenuto una tensione d’uscita 
di 8,5 V con R 3 = 1 kQ. 

La tensione può essere aggiustata mo¬ 
dificando il valore di R 3 . 

Lo schema di figura 5 non necèssita di 
regolazioni ed è ancora più semplice. 

I circuiti integrati regolatori di tensione 


O 


,parte metallica 
7T tU 

LM3l7m T0220 


LM3I7T 


REG - y 

(regolazione) 


—I (ingresso) 
- LI (uscita) 


figura 3 

D u D 2 diodi al silicio I A, 200 V, ad esempio IN4002 
C,, C 2 , C 3 condensatori al tantalio IO (jF, 20 V 
(possono essere usati anche elettrolìtici 
da 47 (j F) 

R t 120 Q 

Ri 680 a 

R 3 da scegliersi in sede di collaudo tra 8,2; 10; 

12; 15; 18 kQ oppure non inserita 
R 4 680 Q 

P pulsante con contatti N.A. 

(normalmente aperti) 
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vanno montati su un dissipatore di calore o 
su una parete del contenitore se questo è 
di alluminio spesso almeno 1,5 mm. Non 
dimenticate di spalmare un poco di grasso 
al silicone sulla superficie di contatto tra 
regolatore e dissipatore. 

Nello ZX81 lo spinotto maschio 
dell’alimentazione è un jack da 3,5 mm e il 
positivo deve essere collegato al centro. 


figura 4 

C t , C 2 10 \iF, 20 V, al tantalio 

(oppure condensatori elettrolitici da 47 \iF) 
t?, 150 Q 

R 2 100 Q 

R 3 1 kQ 

R a 680 Q 

P pulsante con contatti normalmente chiusi (14.C.) 




figura 5 

C,, C 2 come in figura 4 

£>, diodo al silicio qualsiasi 

R, 820 Q 

R 2 680 Q 

NOTA: le connessioni del 7808 sono 
come quelle del 7805 
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1983. 

FINE 
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p.e. Giancarlo Pisano 

S ervendosi di un Personal Computer con 
adatto software, è possibile progettare 
molto semplicemente filtri del tipo passa-alto 
o passa-basso il cui utilizzo è molto ricorrente 
nel campo dell’alta frequenza. 

Con il programma presentato in queste pagine 
si possono progettare tre tipi di filtri passa- 
basso e due tipi di passa-alto. 

RISOLUZIONE 



CON IL PERSONAL COMPUTER 


Il programma è stato strutturato in modo 
molto semplice, utilizzando le istruzioni 
Basic più comuni (PRINT,INPUT,LET,IF- 
THEN,ecc...); grazie a ciò il programma può 
funzionare su qualsiasi microcomputer an¬ 
che se la versione che presento è stata fatta 
girare con il noto TI99/4A. 

L’unica istruzione “particolare” è la 
CALL CLEAR che serve per cancellare il vi¬ 
deo dopo aver dato il RUN. I possessori di 
computer diversi dal TI99, potranno co¬ 


munque sostituire la CALL CLEAR con 
un’istruzione corrispondente, reperibile sul 
manuale d’uso dell’apparecchio. 

Se anche l’istruzione END dovesse dar 
fastidio, provate a ometterla poiché il pro¬ 
gramma dovrebbe girare ugualmente ma ri¬ 
cordatevi di sostituire in modo appropriato i 
numeri di linea dopo i vari “THEN”. 

Guardiamoci il listato senza ulteriori in¬ 
dugi: 


5 cali clear 

IO rem-filtri passa alto e passa basso- 
20 print "calcolo rii filtri passa alto e passa basso 1 
30 print "opzioni; per i passa-basso: pi-greco,a ”T" 
pi-greco elaborato; 
per i passa-alto: a "T", pi-greco" 

40 print "scrìvi rispettivamente: PG,TB,PGE,TA,EGA" 
50 input A$ 

60 if a$= "PG" then 120 
70 if A$= "TB" then 240 
80 if A$= "PGE" then 350 
90 if A$- "TA" then 500 


100 if A$- ”PGA° then 610 
HO rem -pi greco- 

120 print "inserire la frequenza di lavoro in MHZ' 

130 input F 

140 let L=52/(3.I4*F) 

150 let 0=1000000/(6.28*52*F) 

160 print "il valore di L e nn ";L 

170 print "il valore di C e ,,n "}C 

180 print "ancora il pi-greco ? (S/N)" 

190 input Z$ 

200 if Z$= "S" then 120 
210 if Z$= "N" then 40 
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220 

END 

640 

let L= 52 /( 6 . 26 *P) 



230 

rem - "T" - 

650 

let 0=1000000/(12.56*52*F) 



240 

print "inserire la frequenza di lavoro in MHZ" 

660 

print "il valore di L e"" H ;L 



250 

input F 

670 

print "il valore di C e"" ";C 



260 

let L=52/(6,28*F) 

680 

print "ancora il passa-alto a pi-greco 

? 

(S/N)" 

270 

let C=IOOOOOO/(3.I4*53*F) 

690 

input Zfi 



280 

print "il valore di L e"" ";L 

700 

if ZS» "S" then 620 



290 

print "il valore di C e ,,H ";C 

710 

if Z$= ”N" then 40 



300 

print "ancora il passa-basso a "T" ? (S/N)" 

720 

END 



310 

input Z$ 

490 

rem - "T" passa alto - 



320 

if z$= "S" then 240 

500 

print "inserire la frequenza di lavoro 

in 

MHZ" 

330 

if ZJ= "N" then 40 

510 

input F 



340 

END 

520 

let L=52/(I2.56*F) 



3 50 

rem- pi-greco elaborato - 

530 

let 0=1000000/(6.28+52*F) 



360 

print "inserire la frequenza di lavoro in MHZ" 

540 

print "il valore di L e"" ";L 



370 

input F 

550 

print "il valore di C e OH ";C 



380 

let L=53 0.6/(6.28*F) 

560 

print "ancora il passa-alto a "T" ? (s/N) 

« 

390 

let Ca=270000/(3.I4*52»-F) 

570 

input Z$ 



400 

let 01=600000/(6.28*52*F) 

580 

if Z$= "S" then 500 



410 

print "il valore di L e"" ";L 

590 

if Z$» "N" then 40 



420 

print "il valore di Ca e”" n ;Ca 

600 

END 



430 

print "il valore di Cu e"" ";Cu 

6X0 

rem - passa alto a pi-gxeco - 



440 

print "ancora il pi-greco elaborato ? (s/N)" 

620 

print "inserire la frequenza di lavoro 

in 

MHZ" 

4 50 

input Z$ 

630 

input F 



460 

if z$= "3" then 360 





470 

if Z$= “N" then 40 





480 

END 






Dopo aver caricato il programma si darà 
il solito RUN e, se tutto è in regola, il com¬ 
puter ci chiederà quale filtro vogliamo cal¬ 
colare, Premeremo PG per il pi-greco, TB 
per il passa-basso a “T”, PGE per il pi-greco 
elaborato, TA per il passa-alto a “T”, PGA 
per il passa-alto a pi-greco. Quindi, dopo 
aver dato uno di questi comandi premere¬ 
mo ENTER; a quel punto dovremo digitare 
la frequenza che interessa e una volta pre¬ 
muto ENTER otterremo tutti i dati necessa¬ 
ri per realizzare il filtro. 

I filtri sono calcolati per avere un’impe¬ 
denza di ingresso e di uscita uguale, pari a 
52 Q; se interessa un altro valore di impe¬ 
denza, basta sostituire tale numero con 
quello adatto alle nostre esigenze. 

TéftgffpitfydMe t/iYC. wllfc'gat i ùu più fi - 

tri tra loro si ottiene una maggior attenua¬ 
zione delle frequenze indesiderate ma è 
consigliabile non collegare tra loro più di tre 
filtri, per non attenuare anche la frequenza 
fondamentale. 


Dovendo costruire un passa-alto, ricor¬ 
diamoci di maggiorare leggermente il valore 
delle capacità. Per esempio, se il computer 
ci comunica che occorrono 14 pF, non uti¬ 
lizziamo un condensatore da 15 pF, ma un 
modello da 18 pF in quanto si correrebbe il 
rischio di attenuare anche la frequenza fon¬ 
damentale. 

Data l’utilità del programma è senza 
dubbio consigliabile salvarlo su cassetta (o 
analogo sistema del vostro microcompu¬ 
ter). 

Non ci dovrebbero essere altri problemi, 
anche perché è il computer ad assumersi il 
compito più gravoso. 

FINE 
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pi-greco (passa-aìto) 


Il valore delle induttanze è espresso in microhenry, mentre il valore delle capacità è espresso in picofarad. 
Nel programma, l'istruzione END si può sostituire con STOP. 
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IW3AER, Giovanni Sosi 


Q uesto mio elaborato, pur interessando 
la matematica analitica, dovrebbe es¬ 
sere utile a un gran numero di lettori che, co¬ 
me me, sono studenti universitari. 

Avendo costruito il G5 dell’Ing. Becattini, ho 
cercato di unire l’utile al dilettevole. 

MArEMATKA 

ANALITICA 

CONI.G5 



Nonostante alcune limitazioni (spero 
presto superate), il G5 permette di risolvere 
la maggior parte dei problemi di analisi ma¬ 
tematica. Per limitazioni intendo la man¬ 
canza di alcune funzioni, tipo l’esponenzia¬ 
le, le funzioni trigonometriche inverse, il 
log. 

Nonostante questo, si possono ottenere 
dei buoni risultati sia da un punto di vista 
numerico, sia grafico. 

Lo studio di una funzione a una variabile 
è molto semplice e anche quello a due varia¬ 
bili. 

Consideriamo la funzione f(x,y)=cos 2 x+ 
cos 2 y; vediamo che è una funzione conti- 
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nua a due variabili e perciò a tre dimensioni, 

Vogliamo trovare il massimo o il minimo 
di questa funzione entro un certo dominio 

D. 



Volendo, oltre alla soluzione numerica, 
anche una soluzione grafica, dovrò decidere 
da che asse voglio “vedere” la mia curva; nel 
listato seguente è vista in direzione dell’as¬ 
se y, ma nulla vieta di vederla dalle x o da 
ambedue, con la semplice sostituzione 
dell’istruzione SET,., 



5 REM MASSIMO E minimo DI P(X,Y) 

66 

I? P<=MI THEN LET XI=X 

IO GRAPH 

67 

IP P<=MI THEN LET YI=Y 

20 ORG 127^95 

70 

IP P>M2 THEN LET M2=P 

22 PLOT -127,0,127,0 

71 

IP P>=M2 THEN LET X2=X 

24 PLOT 0,-95,0,95 

72 

IP P> =M2 THEN LET Y2=Y 

26 POR H=-I20 TO 120 STEP IO 

80 

SET 40xX r 40xP 

28 PLOT H,-3,H,3 

82 

NEXT 

30 NEXT 

84 

NEXT 

32 POR K=-90 TO 90 STEP IO 

86 

AT 15,0 

34 PLOT -3rK,3,K 

88 

PRINT"minimo=",MI 

36 NEXT 

90 

PRINT" X=",XI 

40 LET P=3.I4I5 

92 

PRINT" Y="„YI 

45 LET MI=99999 

94 

PRINT 

46 LET M2=-99999 

96 

PRINT"KA3SIM0=",M2 

50 POR X=-P/4 TO P/2 STEP 0.05 

98 

PRINT" X=",X2 

55 POR Y=0 TO X+P/4 STEP 0.05 

99 

PRINT" Y=",Y2 

60 LET P=C0S(X)xC0S(X)+C0S(Y)xC0S(Y) 

100 END 

65 IP P<MI THEN LET MI=P 



Naturalmente si possono aggiungere al¬ 
tre parti di completamento, per esempio 
tracciare il dominio; si possono definire due 
sprites a forma di freccia uno t per il max e 
uno 1 per il min. Questi vengono posizio¬ 
nati automaticamente sul tracciato del do¬ 
minio per indicare automaticamente la po¬ 
sizione di massimo e di minimo. Insomma, 
chi più ne ha più ne metta. 



FINE 
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I5YJI, Francesco Francescangeli 


UÀ 

\W uesto Francescangeli non demor¬ 
de. de!”, dirà qualcuno. 

A bere e bestemmiare tutto sta a cominciare, 
dice un detto toscano, uno dei tanti. 

Scherzi a parte, sono affascinato dal G5. 

La sorpresa dicembrina contenuta in XÉLEC- 
TRON, poi, è stata veramente gradita, portan¬ 
do le capacità del G5 a un livello decisamente 
interessante, se paragonato ad altre macchine 
commerciali. 

Se poi penso alle future migliorie lasciate in¬ 
travedere dall’Ing. Becattini... 



(release 3.00) 


Per ora, comunque restiamo con i piedi 
in terra; passo quindi a farvi partecipi di una 
scoperta tanto inattesa quanto utilissima: il 
G5 ha capacità di EDITING, e oltretutto 
con una procedura semplicissima. Speran¬ 
do vivamente che ci sia qualcuno a un livel¬ 
lo di conoscenza più basso del mio, spiego 
brevemente: l’EDITING consiste nella pos¬ 
sibilità di intervenire (con correzioni, can¬ 
cellazioni e inserimenti) in un programma 
già steso, ma senza dover ribattere comple¬ 
tamente la linea. 

Ad esempio, se avete battuto 

200 LET A=INT((N/ 16-INT5N/16))* 15)+1 

con il vecchio release (2.00) per correggere 
il +1 con un +2 avreste dovuto riscrivere 
tutta la linea. Con il nuovo release (3.00) in¬ 
vece la procedura è molto semplice: 

1) fate il LIST del programma, o meglio so¬ 
lo della linea interessata con LIST 200,1 

2) tramite i tasti di controllo del cursore 
(C+0= t, C+J= 1, CU=—, C+H (o Back 
Space) =«-, C+N (o barra spazio) = —) po¬ 
sizionare quest’ultimo sotto PI 

3) battete 2 


- 48 - 







4) fate RETURN 
Tutto qui. 

L’uscita dal modo EDIT avviene auto¬ 
maticamente con il RETURN. 

Se non credete che sia semplice, provate 
a farlo con un M20. 

Per chiarezza di esposizione ritengo co¬ 
munque che sia meglio esemplificare le va¬ 
rie possibilità. 

CÀMBIO DI UN DATO in mezzo a una linea 

Fare le operazioni 1,2 e 3 di cui sopra, pe¬ 
rò attenzione: se battete il RETURN, tutto 
il resto della linea, pur restando sullo scher¬ 
mo, verrà cancellato dalla memoria; per ov¬ 
viare a ciò basta portare il cursore in fondo 
alla linea con alcuni C+J. Quindi ricordate¬ 
vi: tutto ciò che è dopo il cursore viene can¬ 
cellato con il RETURN. 

CANCELLAZIONE di parte di una linea 

Sfruttando quanto detto sopra, basta 
portare il cursore sul primo carattere da can¬ 
cellare e poi fare RETURN. 

INSERIMENTO di dati 


ne, tutto ciò che vi è dopo viene spostato in 
blocco con C+Z di tanti spazi quante sono 
le volte che si fa C+Z, fermo restando il cur¬ 
sore dove lo abbiamo posizionato; quindi, 
se vogliamo inserire una frase di 10 lettere, 
basta fare C+Z per 10 volte e, nello spazio li¬ 
bero, inserire la frase voluta. Ricordatevi 
sempre di portare il cursore in fondo alla li¬ 
nea prima del RETURN. 

Mi sembra che sia alquanto utile, no? 

E ora, tanto per cambiare, vorrei sotto¬ 
porvi un programmino che ritengo sia utile 
per l’inserimento di programmi di linguag¬ 
gio macchina, che il G5 accetta solo in deci¬ 
male, o qualora ci fosse il bisogno di conver¬ 
tire in decimale lunghe file di esadecimali 
(almeno non fondete più la calcolatrice!); 
quando poi si parla di conversione da deci¬ 
male a esadecimale, i più svengono e i so¬ 
pravissuti affogano miseramente sotto ton¬ 
nellate di foglietti coperti di divisioni e mol¬ 
tiplicazioni. Provare per credere. 

Ora, dopo altrettante tonnellate di carta 
(una tantum) e dopo ore di DEBUG (ricerca 
errori: tanti!) sembra che sia riuscito a risol¬ 
vere il problema. 

Eccovi quindi il MEGAPROGRAMMA 


Portando il cursore in una certa posizio- 

(tutto è relativo): 

10 DIM H*(1) 

170 IF H*="2" THEN GOTO 470, 

20 PHINT CHR(12) 

180 PRINT CHR(12) 

30 FRINT tab(i2),":.:enu" 

190 DII! II*(1),Z*(1) 

40 FRINT 

200 CLEAR 

50 PRINT 

210 PRINT''PER FAVORE UN CARATTERE ALLA VOLTA" 

60 PR HIT 

220 PRINT 

70 REM - INSERIRE SEMPRE TUTTI E 4 I CARATTERI, 

230 PRINT 

ANCHE SE 0 

240 POR 1=0 TO 3 

80 PRINT "1) CONVERSIONE HEXADECIMAL - DECIJIALE" 

250 FRINT "CARATTERE?":INFUT,N* 

90 PRINT 

260 GOSUB 400 

100 PRINT 

270 ON I GOTO 3 IO, J00, kjV, 2o0 

110 FRINT "2) CONVERSIONE DECIMALE - HEXADECIMAL" 

280 LET NI=A;GOTO 320 

120 PRINT 

290 LET NI =A* 16-.GOTO 320 

130 PRINT 

300 LET N1=a*16»i6:GOTO 320 

140 PRINT 

310 LET N1=A*16«16«16:GOTO 320 

150 PRINT TAB(12), "QUALE?":INPUT,H$ 

320 LET N2=N1+N2 

160 IF H$=" 1 11 THEK GOTO '80 

330 NEXT 
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XÉLKCTRON 6/H4 



340 PRINT N2 

600 LET N=Y 

350 FRINT 

610 GOSUB 760 

360 PRINT 

620 IF x>9 THEN GOSUB HOO 

370 PRINT "VUOI RIPETERE? (S/N)":INPUT,Z* 

630 IF X<10 THEN LET X»=STRS(X) 

380 IP ZS="S” THEN GOTO 200 

640 LET BJsXÌ 

390 IP Z«= ,, N” THEN END 

650 LET N=Y 

400 IF N|="A" THEN LET A=10:RETURN 

660 GOSUB 760 

410 IF N$="B“ THEN LET A=11 : RETURN 

670 IF x>9 THEN GOSUB 000 

420 IF NI*"C" THEN LET A»12:RETURN 

680 IF X<10 THEN LET Xt=STR»(X) 

430 IF N8="D" THEN LET A=13:RETURN 

690 LET A*=X# 

440 IF N*=”E" THEN LET A=14:RETURN 

700 PRINT A»,B*,C»,DS 

450 IF N$-"F" THEN LET A=15:RSTURN 

710 PRINT 

460 IF V1L(N*)<10 THEN LET A-VAL(Nt) iRETDRN 

720 FRINT 

470 FRINT CHR(12) 

730 FRINT "VUOI RIPETERE? (S/N) " : INPUT, Y* 

480 DIM A*(1),B*(1),Ct(l) f D*(l),X*(l),Y*(l) 

740 IF Y*="S" THEN GOTO 490 

490 CLEAR 

750 IF Y$= I, N" THEN END 

500 FRINT "VALORE DA CONVERTIRE?" : INPUT, N 

760 LET X=INT((N/16-INT(N/16))»15) 

510 GOSDB 760 

770 IF. N/16-INT(N/16)<>0 THEN LET X=X+1 

520 IF X>9 THEN GOSUB 000 

780 LET Y=INT(N/16) 

530 IF X<10 THEN LET X*=STR»(X) 

790 RETURN 

540 LET D*=Xt 

800 IF X=10 THEN LET X$*”A"IRETURN 

550 LET N=Y 

810 IF X=11 THEN LET X8="B" : RETURN 

560 GOSUB 760 

820 IF X=12 THEN LET XS=-"C" :RETURR 

570 IF X>9 THEN GOSUB 800 

830 IF X=13 THEN LET X*WD" iRETURN 

580 IF X<10 THEN LET X$=STRt(X) 

840 IF X=14 THEM'LET X*="E" iRETURN 

5 SO LET C$=Xt 

850 IF X=15 THEN LET X£-'F"iRETURN 

E ora alcune osservazioni sul nuovo 
firmware del “nostro”. 

INPUT 

La versione 3.00 non accetta più la frase 
INPUT N, pena segnalazione ERR INPUT, 
ma bisogna scrivere INPUT,N. Si viene pe¬ 
rò a perdere la, qualche volta, utile indica¬ 
zione del ?_ 

Non viene accettata neanche la frase IN¬ 
PUT “mm”,N ma bisogna scrivere, alla 
ZX81, 

Per le stringhe attenzione: se scrivete 
INPUT G$ appare, si, il ? ma viene interpre¬ 
tato come facente parte della stringa; im¬ 
mettendo cioè la lettera N, G$ risulterà ?N. 
E allora? Come sopra INPUT,G$ e attesa 
senza il ?, oppure 

10 PRINT “mm” 

20 INPUT G$ 

Attenzione a non scrivere IN- 
PUT“mm”,G$ o il “mm” farà parte della 
stringa. Provate: 

10 PRINT“mm” 

20 INPUT ,N 

5 DIM G$(10) 

10 INPUT ‘"NUMERO?”, G$ 
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20 PRINT G$ 

30 GOTO 10 

Visto? Sinceramente lo trovo un po’ sco¬ 
modo. 

STRINGHE 

A proposito delle stringhe, notare alla li¬ 
nea 30 di quanto sopra il GOTO 10 e non 
GOTO 5. Non fate mai un ritorno a un 
DIMn$(x), pena ERR DIMENSION, An¬ 
che logico: una volta dimensionato, che re¬ 
sta da dimensionare? O no? Mah! 

In compenso di quanto sopra, però, il G5 
ci fornisce la non poco apprezzabile possibi¬ 
lità di scrivere con caratteri a doppia altezza, 
o da programma, con PRINT CHR(22) per 
abilitarla e PRINT CHR(23) per disabilitar¬ 
la, o direttamente con CONTRÒL+V 
(CHR(22) e CONTROL+W (CHR(23). 

Questo è molto più comodo, in quanto 
con altre macchine occorre un programma 
apposito per realizzare quanto sopra. Se poi 
ci fosse una istruzione tipo COPY, per tra¬ 
vasare direttamente il contenuto dello 
schermo su stampante... 

Dopo tanto stress, una divagazione amena. 

Con la frase CHR$(x) si dà valore di 
strìnga a uno dei caratteri del sistema, inten¬ 
dendo per carattere i segni, la punteggiatu¬ 
ra, i numeri e le lettere. 

Cioè con: 

10 DIM C$(0) 

20 LET C$=STR$(69) 

30 PRINT C$ 


vi verrà stampata una E. 

Dato che la successione dei caratteri è 
sempre la solita, vedi articolo precedente, il 
codice dei caratteri parte da 32 (Space), 33 
(!) e via via sino al 126 ( ) e 127 ( jg| ).. 

A titolo di cronaca vi informo che se ese¬ 
guite un programmino del genere: 

5 DIM A$(1),B$(1) 

10 LET A$=CHR$(65) 

20 LET B$=CHR$(47) 

30 IF A$>B$ THEN PRINT “OK”:END 
40 PRINT “NO” 

vedrete che, indipendentemente dal fatto 
che il CHR$ sia lettera, numero o carattere, 
più è alta la sua posizione e più vale, sup¬ 
pongo perché il G5 riconosce il valore bina¬ 
rio del carattere, che va a salire. 

Logica conseguenza, nelle stringhe an¬ 
che “BOC”>“BOB”, “TOM”>“BIM” e 
“KK0”<“AEB”. A che può servire? In un 
ipotetico archivio a catalogare dati o nomi in 
ordine numerico o alfabetico o, meno seria¬ 
mente, a vedere se valgo più io di mia mo¬ 
glie, numericamente parlando. 

A questo punto è di prammatica presen¬ 
tare le nuove funzioni ottenibili con il fami¬ 
gerato tasto CONTROL. 

Però stavolta, per non confondervi le 
idee, avrei pensato di presentare sotto for¬ 
ma di tabella, utile anche per tenerla sotto 
mano (non strappate XÉLECTRON, fotoco¬ 
piatelo). 

Il +R significa che occorre battere il RE¬ 
TURN. 


CONTROL 

C + 

TEXT 

GRAPH 

EDIT 

DIRETTO 

PROGRAMMA 

DIRETTO 

PROGRAMMA 

SI 

A 

cursore inizio 
linea 

- 

- 

- 

B 

- 

- 

INK 

INK 

- 

C 

STOP 

- 

STOP 

- 

- 

D 

riconoscimento 

minuscole 

- 

riconoscimento 

minuscole 

- 

- 


- 51 - 

























E 

GRAPH +R 

GRAPH 

GRAPH 

+R 

GRAPH 

— 

F 

BLANK +R 

BLANK 

BLANK 

+R 

BLANK 

- 

G 

NOBLANK +R 

NOBLANK 

NOBLANK 

+R 

NOBLANK 

- 

H 


- 


- 

SI 

I 

—8 spazi 

- 

- 

- 

SI 

J 

; 

- 

i 

- 

SI 

K 

cursore inizio 
pagina 



. 

SI 

L 

CLS 

- 

- 

- 

- 

M 

RETURN 

- 

- 

- 

- 

N 

—► 

- 

- 

- 

si 

0 

t 

- 

- 

- 

SI 

P 

- 

SPFORM 

- 

SPFORM 

- 

Q 

- 

SEDEF 

- 

SPDEF 

- 

R 

- 

SPT.YP 

- 

SPTYP 

- 

S 

- 

AT 

- 

AT 

- 

T 

- 

SAVE 

- 

SAVE 

— 

U 

- 

. LO AD 

- 

LO AD 

- 

V 

abilita 

s o t to1ine atura 


abilita 

ingrandimento 


_ 

w 

disabilita 

sottolineatura 

- 

disabilita 

ingrandimento 

— 

_ 

X 

cancella 
riga in corso 

- 

- 

- 

SI 

z 

fa spazio 
in linea 

- 

- 

— 

SI 

VBW 

- 

IP 

- 

- 

- 

VEW 

- 

RETURN 

- 

- 

- 

VFW 

- 

READ 

- 

- 

- 
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wmm 

VGW 

— 

LATA 




VPW 

- 

CLEAR 

- 

- 

— 

VQW 

- 

ARG 

- 

- 

— 

VRW 

- 

POKE 

- 

- 

- 

VSW 

- 

OUT 

- 

- 

— 

VTW 

- 

ON 

- 

— 


VUW 

- 

STR$( 

- 

- 

— 

V0W 

- 

LET 

— 

— 


VCW 

- 

CHR( 

- 

- 

— 

V3w 

- 

THEN 

- 

- 

- 

v\w 

- 

TAB 

- 

- 

- 

V«-W 

— 

STEP 

_ 




vtw 

V 

RUB. 

W 


TO 

INFO 





Un programma senza pretese e con in¬ 
ganno, però, ve lo voglio rifilare. 


IO PRINT CHR(12) 

130 

LET K=K+1 

20 PRI11I"INSERISCI L'ORA ESATTA IN ORE,MIN. E SEC." 

140 

GOSUB 1000 

30 INPUT,0,M,S 

150 

NEXT Y 

40 GOSUB 1000 

160 

LET M=0 

50 POR X=0 TO 11 

170 

LET 0=0+1 

60 POR T=M TO 59 

180 

GOSUB 1000 

70 POR Z=s TO 59 

190 

NEXT X 

80 FOR A=0 TO 410:NEXT 

200 

LEI 0=0 

90 LET S=S+1 

210 

GOTO 40 

100 GOSUB 1000 

100C 

PRINT CHR(12) 

110 NEXT Z 

101C 

PRINT 0,M,S 

120 LEI S=0 

102C 

RETURN 
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SU 




L’inganno consiste nel fatto che non so¬ 
no riuscito a far restare l’ora al suo posto du¬ 
rante lo svolgimento di un altro program¬ 
ma. 

Se ci riuscite voi vi pago un caffè. 

Se, anzi, avete qualche buon consiglio da 
darmi o qualche buon programma da offrir¬ 
mi, vi ringrazio anticipatamente e spero di 
ricambiare. 

S crivetemi alla Casella Postale 20-58100 
GROSSETO. 

Anche per questa volta ho finito. 

Spero comunque di rifarmi vivo presto, 
magari con qualcosa di hardware, tanto per 
cambiare argomento, che magari voi lo pre¬ 


ferite! 

Ringraziando quindi ring. Becattini per 
l’impegno dimostrato nel far crescere la sua 
creatura in modo egregio, e complimentan¬ 
domi con lui per la pregevole opera svolta, 
vi saluto tutti. 

E non dite “meno male!”, perché c’è una 

ERRATA CORRIGE 

Nel mio articolo su XÉLECTRON u.s., a 
pagina 77 nel programmino in alto manca la 
linea 

20 FOR I=A TO B 
Ciao. 

FINE 


é in edicola 

non perderti 
le novità su: 

SOFTWARE* OM 

OM&COMPUTER *CB 
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Marco Bisaccioni 


N ormalmente, nella vita computeristi¬ 
ca di ciascuno di noi, il basic risolve i 
nostri problemi, non però quando occorre 
avere particolare velocità di esecuzione. 


MLX PERC64 


Infatti ricordiamoci che ogni qualvolta 
chiediamo al nostro Home Computer di 
svolgere qualche istruzione in basic, esiste 
una serie di istruzioni allocata per lo più al¬ 
la fine RAM che traducono in forma com¬ 
prensibile al microprocessore, le suddette 
istruzioni. 

Il basic, così come noi lo conosciamo, è 
infatti assolutamente incomprensibile per 
il microprocessore, che invece parla un al¬ 
tro idioma (non ridano gli addetti ai lavori) 
il così chiamato “linguaggio macchina”, 
cioè la lingua correntemente usata da quel 
tipo di microprocessore che è insediato nel 
nostro computer. 

Quale che sia la macchina che noi pos¬ 
sediamo, dentro di essa ha un micropro¬ 
cessore che a seconda del tipo, ha un suo 
set di istruzioni particolari. 

Non vogliamo per ora addentrarci in 
questo discorso, ma sia chiaro che per for¬ 
za esiste alfinterno della macchina un pro¬ 
gramma che consente al computer di tra¬ 
durre il, per lui incomprensibile, ‘BASIC’ 
in una serie di istruzioni in linguaggio 
macchina a lui invece comprensibili. E un 
po’ come il diplomatico italiano che per ca¬ 
pire il diplomatico arabo ha accanto a sè il 
traduttore che comprende l’arabo e lo tra¬ 
duce in italiano: senza l’interprete cercate 
di far parlare l’italiano con l’arabo, e il ri¬ 
sultato se non altro porterebbe a un enne¬ 
simo aumento della benzina... 

Logico, che se invece il diplomatico ita¬ 
liano conoscesse l’arabo, il loro colloquio 
sarebbe più veloce e personale. Così è per i 
nostri programmi in basic: il Sistema Ope¬ 


rativo (appunto il programma traduttore) 
della macchina, deve, ogni qualvolta sia 
data una istruzione basic tradurla in lin¬ 
guaggio macchina; si capisce pertanto la ra¬ 
gione per cui in basic il nostro computer per¬ 
de velocità. Poverino! Lui corre, ma pensa¬ 
te un po’ a quello che deve fare: prelevare 
il comando basic, verificare se tale coman¬ 
do esiste nel suo sistema operativo e, se 
esiste, saltare alla routine che gli permette 
di svolgerla! 

Tutti passaggi che fanno perdere tempo. 

Ma allora se voglio un programma scheg- 
giante come faccio?. 

RISPOSTA: parlo con il microproces¬ 
sore in linguaggio macchina. 

Ma per far ciò occorre un programma 
che ci permetta di memorizzare nella mac¬ 
china le nostre istruzioni in linguaggio 
macchina. 

Questo programma si chiama MONI¬ 
TOR. 

Il nostro fedele C64, attraverso il suo 
potente sistema operativo, ci permette di 
risolvere la maggior parte dei nostri “basic- 
guai” con estrema facilità. 

La cosa cambia drasticamente quando 
occorre lavorare in ML (Machine Langua- 
ge: linguaggio macchina): infatti il neo for¬ 
se più grande del C64 è di non possedere 
un MONITOR. Certo, varie Ditte di soft¬ 
ware e la stessa Commodore hanno creato 
potenti monitor in grado di dare tutto 
l’aiuto possibile a chi intende creare un 
qualsiasi cosa in ML, ma in questo caso oc¬ 
corre mettere mano al porta...svalutazioni 
(...fogli!). 
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N:specifica Nuovo indirizzo, vi permette di 
spazzolare in avanti e indietro il program¬ 
ma attualmente in memoria. 

D:Display, visualizza su schermo il conte¬ 
nuto di memoria che volete vedere da op¬ 
zione. 

Per rendere operabili questi comandi 
dovete semplicemente digitarli con lo 
Shift. Ad esempio: SHIFT/L = LO AD. 

Troverete due listati: ambedue rende¬ 
ranno disponibile al vostro C64 il program¬ 
ma suddetto ma con due differenze. 

MLX con cecksum di verifica: ogni linea 
è costituita da sette cifre l’ultima delle qua¬ 
li è appunto il così chiamato checksum che 
si calcola nel seguente modo. Il valore di li¬ 
nea +, i valori delle sei cifre costituenti la 
linea medesima, sommati tra di loro e AN- 
Dizzati con 255: ad esempio: 2049: 011 008 
000 000 158 050 228 

linea cf.l cf.2 cf.3 cf.4 cf.5 cf.6 c.sum 

Infatti 2049+((l 1+8+0+0+158+ 
50)and255)=228 

Provare per credere. 

Logico che, in tutti quei casi in cui non 
è necessario creare un programma lungo, 
il checksum diventa noioso da calcolarsi e 
il lavoro che doveva essere corto diventa 
sicuramente più lungo. 

È per questo che vi viene proposta an¬ 
che una versione modificata senza check¬ 
sum di verifica. 


1-0 rem #################*######################################## 

2U rem # m 1 x con cecksum di verifica # 

30 rem ########################################################## 

100 Prinfc”*!";chr $ (142);chr$ <8 >; ■?ok «93261,11 : Pok«53286/14 

101 rem ’Poke?8S,52 

110 Pri'nt'"S "; 

120 P ri rifa M8S32VI N " i 

130 Fririt"! >1 I H MI WSmmM "J 

140 priora 

142 Prifìf SEImachine code automatic editor" 

145 Pr linfa revisi ori by xelectron bolo9na 

150 v=53248 : Poke2040,. 13 : Poke2041,13 : fori*832to85>4 : Pokei. 255 : next : Pokev+27.3 
160 Pokev+21 ,• 3 : Pokev+39.2 : Pokev+40.2 : Pok.ev. 144 : Pokev+1.54 : Pokev+2. 132 : Pokev+3. 54 
170 Pokev+29. 3 

180 fori“0to23 : reada ; Pok«679+i. a : Pokev+39,a : Pokev+40.a : next 
185 data 169.251,166 , 254,164 .• 255.32.216 . 255.133.253.96 
187 data 169,0,166 . 251,164 *s52,32,213, 255,133.253.96 
190 P ok ev+39.5 : P ok ev+40.5 

210 Pr ini"m 1 x" : Pr inf i ndir izzo iniziale ( dee ) " ; : i nPu.ts ; f'=1 -f : c$=chr %< 3 1 +119*f > 
220 ifs<256or(s>409t>0ands-;-49l52)ors>53247then9osub3000 : 9oto210 


Ed ecco che per le cose non proprio dif¬ 
ficili viene in nostro aiuto...: 

MLX, letteralmente Machine Language 
Expanded è un programma che risolve il 
problema di caricare un programma in lin¬ 
guaggio macchina da basic. 

MLX parte semplicemente caricandolo 
e poi digitando RUN. 

Permette di salvare su disco o su nastro 
quanto creato e di caricarlo poi per l’utiliz¬ 
zo con le semplici e arciconosciute istru¬ 
zioni: 

LO AD “Programma”, 1,1 (per cassetta) 
LO AD “Programma”, 8,1 (per disco) 

Per lo start darete poi la SYS per la par¬ 
tenza del programma da voi creato. 

Non appena caricato MLX, vi chiederà 
l’indirizzo di partenza da cui intendete par¬ 
tire e automaticamente presenterà una pa¬ 
gina testo ove d’ora in poi lavorerete. 

UN EDITOR SPECIALE 

Avete a disposizione un Editor che vi per¬ 
mette di sbagliare a iosa! 

Con i comandi del C64INST/DEL po¬ 
tete tornare indietro di una cifra alla volta, 
correggendola. 

COMANDI DI CONTROLLO 

S:SÀVE, salva ciò che avete creato su 
nastro o disco tramite opzione. 

L:LOAD, carica da nastro o disco un 
programma precedentemente creato per 
modificarlo oppure proseguirlo. 
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225 Print : Print : Print 

238 Print"indirizzo finale "; ■ inPube■ f*l-f : c*=chr$C31+l 19¥f> 

248 ife<256or(e>40960ande<.49152>ore/53247then9osub3008 : 9oto230 
258 if e<sthenPr intc$ ; " Bf i na. 1 eCstart" : 9osub 1088 ; 9ot.o23@ 

268 Print:Print : Print 

388 PrimV l 38 , 'Jchr$<14) : ad=s ; Pokev+2l>8 

310 Printri9ht$("8080"+mid$(str:f(ad> >2) > 5>;“ :: forj=lto6 
328 9osub57@ : i fn=-1 then >-'■> +n : 9oto320 
390 if n=-211then?18 
488 ifn=-284then790 

418 ifn= - 286thenPrint ; inPut"£inuovo indirizzo">zz 

415 ifn--206thenif zz<sorzz>ethenPrint" , Bout of ran9e3 : 9oSl@08 : 9O410 
417 ifn=-206thenad=zz : P rìnt : 9oto318 
428 ifnO-196then480 

430 Print: input"disp l.aa : da" j f : Prmt > "f ino a .“ > '■ inPutt 

440 ìf f<sorf>eort.>ethenPr infalrueno" ; s: "lb non Piu' di " ; e : 9oto43@ 

450 fori *f totSteP 6 ; Print : Printri9ht$t "8000"+md$ (st r$( i ) /2> 1 5) ì " '■ " ì 

451 fork=8toS ; n=Peek. C i+k ) '■ PrintriShtfC"00“+«id*<8trf<n>y 2> , 3) 

460 9eta$ ; i f s.$y " " thenP r 1 nt : P r i nt : 9oto310 

478 nextk : Printchr$(20>: ; nexti■Print ; Print : 9oto310 
480 ifn<8thenP rìnt ; 9oto31y 
490 a 1 ! j >=rf next-J 

500 cksum=ad-i nt (ad/256 > *256 : t ori = lto6 ; cksum=(cksum+a<i>)and255 : next 
510 P r intchr$ ( 18 > ■ '■ 9osub578 : P r i ntcbrf ( 20 1 
515 i fn=cksurnthen538 

520 P r i nt : P r i nt " 1 i ne a sba.91 i ata ; r i ba.tt i La" : p r i nt : 9osub 1880 : 9oto31 @ 

530 9osu.b200@ 

548 f or ì = 1 to6 : Pokead+ i ~ 1 .. SK i > ■ next : P ok e54272,0 • Pok«54273/ 0 
550 ad=ad+6 : ifad<ethen3l0 
568 9oto71@ 

570 n=0 ; z=0 

580 Print"3*4- ss:"; 

581 9eta$ : ifa$=""then581 

585 Printchr$<28); : a=asc(a$):ifa.=13ora=44ora=32then670 
590 ifa>128thenn=-a : return 
600 if'aO20then630 

618 9osub690 : ifi=landt=44thenn=-1■Prìnt" HI" i' 9oto690 
628 9oto570 

630 ìfa<48or*>57then580 

640 Printaf1 : n=n¥l8+a-48 

650 i fn>2U5thena=20 : 9osubl0y0 : 9oto6@8 

668 z=z+l : ifz<3then588 

670 ifz=8then9osub1880 : 9oto5?8 

688 p r i nt " > '' ; : return 

690 sX=P eek ( 289 > +256¥P eek ( 210.)+P eek (.211 > 

691 f or i = 1 to3 : t=P eek < s /.~1 > 

695 i f t<>44andt058thenP ok ss'/.- i > 32■' next 
70@ pr ìnt 1 ef t $( "IMI" d -1 > 1 ■ return 
710 P r i fft " BB¥¥¥8ave*r¥iEEr 
728 i nP ut "IT 1 1 e nanne " ; f 4 

730 Pr int : Pr ìnt "ItOl' slape or BLiHisk : '1 T/D> " 

748 9eta.$ • i f a$Ó " t " andaiO " d " then74w 
758 dv=l-7¥(a$=“d“> : ifdv=8thenf$="tì : "+f$ 

768 oPenldv> 1 , fi ; Poke252.. s/256 : Poke251.. s-peek (252>¥256 
765 Poke255, e/256 : Poke254, e-Peek (.255>¥256 

770 Poke253;10 : sas679 ; closel : ifPeek(253>>9orPeek<253)°0thenPrint"SDk!" : end 

780 Print"ifcrrore di Re9istrazicene. Ritenta. " : if'dv=lthen720 

781 oPen 15 18 ,15 : inP ut# 15.■ ds , dsi : Printds ; ds$ : c 1 ose 15 : 9oto728 
798 Print" 

880 inPuf'UEFile name".:f3P 

810 Print ; pr infintisi Elafe or BDaisk ; ( r/D>" 

820 Seta* ; 11 a$0 "t"andato"d "then820 
838 dv= 1 -7*<a*= "d"> = if'dv=8thenf$="0 : "+f$ 

840 oPenl , dv, 8.. f$ : Poke252.' s/256 : Poke251 , s~Peek. (252>¥256 
858 Poke253.. 18 : sas691 : dossi 

868 ifPeek (253>>9orPeek. (253>=0thenPrmt : Print : 9oto310 
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870 Prir»t“SErr«r»' di Cari carne-rito. Ritenta. fl“ : ifdv=lthen880 
880 oPenl5,@, 15 : inP*4.#13, ste, ds$ : Printdsids.$ : closel5 : 9oto808 

1000 renn***:f.*:+:#*bu Z zer*HH***'f.*4i 

1001 P oke54296 , 1 b ; P oke342 77.. 45 : P oke54278» 165 

1002 P ok e54276,33 :Pok e54273,6 :Pok e54272* 5 

1003 f or t= 1 to200 : next ■ p ok e-34276 , 32 : P ok 654273 , 0 ; Pok 654272 .■ 0 ; return 

2000 rem*li**#**bel t sound*####*# 

2001 Pok 654296,13 : Pok e54277, 0 : P ok 634278,247 

2002 Poke34276,17 : Poke54X73,40 :Pok654272,0 

2003 fort=1to1@0 ; next■ p ok e54276, 16 : return 

3000 printc#!"3Pa9ina zero non accessibile" : 9otol00@ 

ready. 

MLX simple version: ogni linea è costi¬ 
tuita naturalmente da sei cifre. Manca ap¬ 
punto l’ultimo numero check. 

1 rem ############################################################# 

2 reni # m i x simPle version # 

3 rem ###*######################################################### 

10 P r i nt " SS!".: chr $ ( 1421 ; chr tK 8li : Poke53281 .■ 11 : PokeS3280 > 14 
14 rem Poke788,52 

18 Prinf'S . 

22 Print"! MSS&W PI iiSWWt 

26 Prinf'a II I II 1*1 ''1 

30 Prinf'S " 

34 Prmt"SElnachine code automatic editor" 

38 Prinf’S revi si ori ba xelectron bolo9na 

42 v=53248 : P ok 62048, 13 : P ok 62041 .■ 13 : f or i =832to894 ; P ok e i, 255 : next : P ok, ev+27 , 3 
46 p ok.ev+21,3 ; P ok ev+89,2 ; Pok ev+40,2 : P ok ev,144 :Pok ev+1,54 : P okev+2.'192 
58 Pokev+3,'55 
54 Pokev+29, 3 

58 f or i =0to23 : reada : Poke679 +1 , a ■' Pok ev+39, a : Pok ev+40, a : next 
62 data 169., 251, 166,234, 164,255, 32,216,255, 133,253,96 
66 data169,0,166,251,164,252,32,213,255,133,253,96 
70 P ok e v+39,3 : P ok ev+40,3 

74 Prinf'mix" : Print“indirizzo iniziale (deci "; : inPuts : f-l-f : c$=chr$(31+l19#f'l 
78 ifs<256or<s>40960ands<491521ors>53247then9osu.b370 : 9oto74 
82 P rint : P rìnt : Print 

86 Print"indirizzo finale "; : inpute : f= 1 -f : c»*chr*(31 +119#f1 

90 ife<256or <e>40960ande<491521ore>53247then9osub378 : 9oto86 

94 ifeCsthenP r intc$,“l'inaletstart" : 9osub338 : 9oto86 

98 Print : Print : Print 

102 Pr int"ffl ,, ;chr$(14.) : aTJ=s '■ Pokev+21,0 

106 Printr i9ht$( "@000"+mid:f <.str$f.adl, 21,51 ; ! : forj=lto6 

110 9osu.b 186 ; i f n=-1 then j = ■/ +n : 9oto 110 
114 ifn=-211then258 
118 ifn=-204then298 

122 i f n=-206thenP r ì nt : i np ut 11 Slnuovo i nd in zzo " ; zz 

126 ifn=-206thenìfzzCsorzz>ethenPrint " Bout of ran9e9 : 9oS1000 : 90410 
130 ifn=-206thenad=zz : P rìnt : 9oto1 06 
134 ifn-O—196thenl62 

138 P r i nt ; i nP ut " d 1 SP L a.y ; da “ ; f : P r 1 nt " fi no a" 5 : inP Utt 

142 i f f < sorf >eort>ethenP r 1 nt “ a 1 meno " ; s ; " II, non Piu/ d i " ; e : 90to 138 

146 f'ori=ftotsteP6 : Print : Printri9ht^("0000"+mid^<str$(i1,21,51I" ; ", 

150 forte*ito5 : n=peek (. i +k 1 : pr .1 ntri9ht$(" 00 " +midS(strS(nl,21,31 ; ", " ; 

154 9eta$ : ifa$>""thenPrint : P rint : 9oto106 

158 nextk : P r i ntchrS i 201 ; '■ next i : P r i nt ; P r 1 nt : 9oto 106 

162 ifn<0thenPrint : 9otol06 

166 a( ■) )=n : next-j 

170 Print ; 9osub354 

174 f or 1 = 1 to6 ; Pok ea.d+ i -1, a ( i 1 : next : P oke54272,0 : Poke54273, @ 

178 ad=ad+6 : ifad<ethenl06 
182 9oto258 
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186 tì= 0 : z=0 
190 Print"» a:"; 

1 94 9eta$ : i f's:f = " " then 1 y4 

198 p r -1 ntchrf < 20 ) ; ; s.=asc >■. a$ ? : i»'a=l 3ora=44@ra=32then234 
202 ì f'a> 128thenn=-a : retar ri 
206 if a02@then218 

210 9osub242 : i f i = 1 andt=44thenn=-1 : p r ì nt " HI" : 9oto242 
214 9otol86 

218 ifa<48ora.>57thenl90 
222 PrintaS: : n=n*10+a-4« 

226 if n>255thene=20 : 9osub338 ■ 9oto206 
230 z=z+l : it'z<3theril90 
234 ifz=0then9osu.b338 : 9otol86 
238 Print".. "1 : retar n 

242 sK=p eek <209> +256#Peek<210>+peek <211 ;■ 

246 for i = 1to3 : t=P eek C ji$~ i > 

250 i f t044andt058thenP okesX-1,32 : next 
254 P rint left$( "UH , i -1 ) ; : retur n 
258 p r i nt " SWf##Save***5i6SI" 

262 inPut"ÉFi le narne" ; t $ 

266 print : Print"iE18r8aPe or aDSisk- < I7D>" 

270 9eta$ ; ifa$O"t"anda$O"d"then270 
274 dv=1 -7* <a* = "d" i : i fdv=8tkterif$= "0 : " +r$ 

278 oPenl , dv.. 1.. f* : Poke252.. s/256 : Poke251, s-Peek 1.25334(256 
282 Poke255.. e/256 ; Poke254, e-Peek < 255 >*256 

286 Poke253< 10 : s.ys679 ; closel : it'Peek <233/>9orPeek (253>=0thenPrint"ÌFatto. " : end 
290 Pritit"ìCrrore di Re9istruzione. Ritenta." : itdv=lthen262 
294 oPenlS.. 8,. 15 ; inPut#15..ds> dsf : Printdsids# : c LoselS 9oto262 
298 P ri 1 nt " i3B#**Load***iiEI" 

302 inPufSEFile filarne";fi 

306 Pr int :print"itisi'SaPe or V)Hisk : (T/D) " 

310 9eta$ : i f'a$0 " t " anda$C> 11 d " then31 @ 

314 dv=l-7*(a$="d";': ifdv=8thenf*="0: "+f'$ 

318 oP en 1 .. d v /ih ff : P ok e252 .• s/256 : P ok e251 .. s-P eek ( 252 ;■ *256 
322 P ok e253; 10 : sms 691 : close1 

326 if'Peek (253>>3orf , eek (253)=wthenPr int : Print : 9otol06 
330 Print"iErrore di caricamento. kitenta.31" : ifdv=lthen302 
334 oPenlS.' 8,15 : input# 15..ds.. ds* : Pr mtds; dsf : closelS ; 9oto3@2 
338 rem********b'j.zzer******** 

342 P0ke54296.. 15 : Poke54277.45 : Poke54278.. 165 
346 p ok @54276 .■ 33 = P ok @54273 .■ 6 ; P ok e54272,5 

35@ fort-1to200 : next ; p ok e54276 232 : P ok e54273 > 0 : Pok e54272 , 0 : return 
354 rem*******be 11 sound******* 

358 Poke54296/15 : Poke54277,*>pok@542/8 > 247 

362 P ok @54276.. 17 ; P ok e542 73 ,40 : P ok @54272 / 0 

366 f or t= 1 to 100 : next : p ok e542 76.. 1 6 ; return 

370 P rinite*;"3F'a9ina Zero e Rem non accessibili" : 9oto338 


ready. 


Il funzionamento è semplicissimo e lo di¬ 
venterà ancor di più, come in tutte le cose, 
usandolo: usatelo, diventando esperti pro¬ 


grammatori in ML per futuri programmi in 
XÉLECTRON XÉLEctronXÉlectronXé- 
lectron xélectron! 


FINE 
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IW1AYJ, Claudio Colombo 


E cco qui un programma per l’apprendi¬ 
mento del morse, che ha già dato otti¬ 
mi risultati pratici, sottoscritto compreso. 
Chi ha intenzione di imparare il morse e pos¬ 
siede un VIC-20, non perda tempo. 

Il primo programma permette di scrivere le 
240 lettere della prova d’esame, dà la possi¬ 
bilità di correggere eventuali errori ed è in 
grado di trasmettere tutte le lettere in un se¬ 
condo tempo alla velocità voluta. 

Alla fine della trasmissione, il^còmputer 
chiede se si vuole ritrasmettere la stessa pa¬ 
gina, anche a velocità diversa, oppure una 
pagina nuova. 

COME DIVENTARE 
"SUPER" IN CW 

OVVERO IMPARIAMO COL COMPUTER» 
DUE PROGRAMMI AD USO E CONSUMO 
DEI PIÙ BRAVI E DEI MENO BRAVI 


Uno sguardo al programma 

Il cuore del programma è rappresentato 
dalla linea 3 che genera il punto e dalla li¬ 
nea 4 che genera la linea. La linea 5 invece 
stabilisce la durata delle pause fra le lettere 
che compongono la pagina. Il numero che 
viene moltiplicato per “P” può variare da 
1,5 a 3. 

Tutti i dati riguardanti l’esecuzione del¬ 
le lettere e dei numeri sono raggruppati 
dalla linea 48 alla linea 415. 

La linea 40 fa iniziare il ciclo della tra¬ 
smissione e la linea 43 stampa le lettere sul 
video, mentre vengono trasmesse, per¬ 
mettendo il controllo visivo. 

La linea 650 calcola la durata del punto, 
unità di base che è funzione del numero 
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delle battute al minuto. 

Se si tentasse di trasmettere a una velo¬ 
cità inferiore alle 40 battute al minuto, la 
lunghezza delle linee e dei punti verrebbe 
troppo dilatata nel tempo, rendendo diffi¬ 
cile l’identificazione delle lettere. 

È necessario, quindi, non scendere 
molto al di sotto di tale limite, senza appor¬ 
tare una modifica al programma, aggiun¬ 
gendo una nuova variabile, che si riferisca 
esclusivamente alla durata delle pause, la¬ 
sciando invariata la durata del punto. 

Per esempio, si potrebbe inserire que¬ 


sta piccola modifica: 

600 INPUT K 

610 IF K < 40 THEN GOTO 630 
620 P=H=INT (3100)/K: GOTO 650 
630 P=80 

640 H=INT (3100)/K 
650 L=3 * P 

Si dovrà cambiare anche la linea 5 
5 FOR T = 1 TO (3 * H): NEXT T: 
GOTO 420 
E la linea 7000 

7000 FOR T = 1 TO (2 * H): NEXT T: 
RETURN 


1 F'R I NT " IT : GQSUB1900 : GQSUB3600 

2 PRI NT " [T : GOSUB500 : PRI NT "□" : GOTO 10 

3 P0KES2, 236 : F0RT=1T0P : NEXTT : PQKES2.■ 0 : F0RT=1T0P : NEXTT : RETURN 
■ 4 P0KES2.I 236 : F0RT=1T0L : NEXTT : PÙKES2, 0 : FORT* 1 TOP : NEXTT : RETURN 
5 FORT*1TOC 3*F>:NEXTT:GOTO420 

10 32=36876 

12 P0KE36878.10 

13 PRINT"liiWPMIS&CRIVIS" 

14 PRINTERRINT 
18 F0RK=1T0X 

22 GETfttCK> : IFR$<K > = ""THEN22 

25 PRIHTRfCK); 

26 IFfi$CK5 , *OHRSC20>THENK as CK-l ) : G0TU22 

28 K > = " # "THENX=K ■' G0T032 

30 NEXTK 

32 P0KE36873.28 

33 PEI NT : PRINT 

35 INPUT "PER INI 2IRRE ERTTI TWH'SM# 

37 IFM$<>"T"THEN33 

38 PRINT"73" 

40 F0RK=1T0X 

43 PRINT TRE<5TRITIO 

48 IFfl$LKl l = "R"THEHG03UB3 : GOSUB4 : G0T05 
50 TFR^(K>="B"THENG0SUB4:G0SUB3:G0SUB3:G08UB3:GOT05 
60 IFR$<K;*"C"THENG0SUB4:G0SUE3:G0SUE4:G0SUB3:G0T05 
70 IF Fi$ ( K } = " D " THENG08UB4 : G0SUB3 : G0SUE3 : G0TO5 
80 IFflf<K> = "E"THENG0SUB3:G0T05 

90 IFR$CK) = "F "THEN G03UB3 : GQSUE3 : G0SUB4 : G0SUB3 : G0TQ5 

100 IFR$(K> = "G"THENG0SUB4:G0SUB4:G0SUB3:G0T05 

110 IFR$QO = "H"THENGOSUE3 ^ G0SUB3:G0SUB3 : G0SUB3 : G0T05 

120 IFR$(K)="I" THENG0SUB3 • G0SUB3 : G0T05 

130 I Ffl$ CK> = " J "THENG0SIJB3 : G0SUB4 : G0SUB4 : G0SUB4 : G0T05 

.140 I FR$ C K > = "K " THENGGSUB4 : G0SUB3 : G0SUB4 : G0T05 

150 IFfìf aO = "L"THENGOSUE3 : G0SUB4 : G0SUB3 : G0SUB3 : G0T05' 

160 I FR$ < K) = "TI "THENG03UB4 :00SUB4 : GOTO5 

170 IFfl$<K)="N"THENGGSUB4 : G0SUB3 : G0T05 

180 IFR$(K> = "JJ"THENG03UB4 : G0SUB4 : G0SUB4 : G0T05 

190 IFR3K K > = "P " THENG0SUB3 : G0SUB4 : G03UB4 : G0SUE3 '• G0TG5 
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280 
210 
220 
238 
240 
250 
260 
27,0 
280 
280 
300 
310 
320 
330 
348 
350 
360 
370 
380 
390 
400 
415 
428 
430 
435 
440 
445 
450 
500 
510 
550 
560 
578 
600 
650 
700 
750 
1000 
1100 
1200 
1250 
1300 
1350 
1400 
1500 
1600 
1700 
1800 
1900 
1950 
2000 
2100 
2200 


IFfi$ C K) = "Q"THENG0SUE4 : G0SUB4 
IFfi$CK> = "R" THENG0SUB3 : G0SUB4 
I Ffl$ ( K )=" S 11 THENGQSUE3 : G0SUB3 : G0SUB3 
I Ffl$ < K. > = " T " THENG0SUB4 : G0T05 
IF fi$ < K)="U"T HENGOSUB3 
IFfif<K>-"V"THENG0SUB3 
IFfi$ < K) = "W"THENG0SUE3 
I Ffl$ C K ') = " X " THENG0SUE4 


G05UB3:G0SUE4:GDTG5 
G0SUE3:GQTG5 


G0TG5 


G0SUB4 
G0SUB3 
: G0SUB4 
■G0SUB3 


:G0TG5 

:D0SUB4:G0T05 
:GGT05 

:G0SUB4:G0T05 


G0SUB3 
G0SUE3 
GDSUB4 
G0SUB3 

IFR$(O = " V 11 THEHG0SUE4 : G0SUB3 : G0SUB4 : G0SUB4 : GGT05 
I FFl$ C K > - " Z " THENG0SUE4 : GQ5UE4 : G0SUB3 '• G0SUB3 : GGT05 
IPfi$<fO = ‘' 1 "THENG0SUB3 : G0SUB4 : G0SUB4 : G0SUB4 : G0SUB4 
IFfif C K>=“ 2"THENG0SUB3:G0SUB3 : G03UB4:G03UB4:G0SUB4 
I FFI$ CK > = "3"THEHG0SUB3:G0SUE3 = G0SUE3 : GG3UE4:G0SUB4 
IFfi$ <K)a"4"THENGG3UB3:G0SUB3:G0SUB3:GÓ3UB3:G0SUB4 
I Ffi$ CK) = " 5 "THEHG0SUB3 : G0SUB3 : GU3UB3:G0SUB3 : G0SUB3 
I Ffi$ C K >="6"THENG0SUB4: GQSUB3:G0SUB3 : G0SUB3:GOSl 


1Ffi$ < K)*"7"THENG03UB4:G0SUB4 
IFfi$ <K > = "8"THENG0SUE4:G0SUB4 
I Ffi$ <k > = '" 9 " THENG0SIJB4 : G03UB4 
I Ffi$ < K = "0 " THENG0SUE4 : G0SUB4 
I Ffi$ < K >=CHRJ 32 ) THEHGOSUB7000 : G0T05 
IFfi$< K > = "i"THENGOTO8000 
HEXTK 

PRINT : PRINT 

PRINT'"fiNCORR ? < S/N> H 

INPUT Cr iFCfO"S" AND C#O"H"THEN440 

I FC$= 11 S "THEHGO.SUB500 : G0T038 

IFCf="H"THEHX«j : GOTO 2 

P0KE36879,29 

PRI NT " D" ■ F'R t NT : PRI NT : PRI NT : PRI NT 

PRINT"QUfiNTE BfiTTUTE", 

PRINT 

PRINT"fiL MINUTO"; 

INPUT K 
P=lNT(3100:J7K 
L=3*P 
RETURN 

PR I NT *****C0ri IFI CRTORE***#* " .■ 

PRINT 

PRINT" MORSE" 

PRINT 

PRINT"ISRUZIQNI" 

PRINT 

PRINT" IL COMPÌ UTER PUÒ''" 

PRINT"REOISTRfiRE IN MEMORIfi" 

FRINT"300 LETTERE E POI " 

PR I NT " TRRSMETTERLE fiLLFl 
PRINT"VELOCITA' VOLUTfi." 

PRINT"PER TRfiSMETTERE" 

FRINT"PREMI #" 

PRINT : PRINT 

PRINT 11 PER CfiCELLHRE UN ER~" 
PRINT"RORE PREMI <BEL)" 


G03UB3 : G0SUB3 
G0SUB4 ; G'0SUB3 : G0SUB3 
GOSUB4:G0SUB4:G0SUB3 
G0SUB4 : G0SUB4:G0SUB4 


■■ G0TQ5 
: G0T05 
:G0T05 
:G0T05 
^ GOT05 
JB3 : G0TO5 
:GOTG5 
:GOT05 
: G0T05 
:GGT05 
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2300 FRINT 

2400 FRINT"PER FINIRE PREMI 
2500 FRINT 

2600 FRINT"PER COMINCIARE PREMI £" 

3000 GETB$ : 1FB$ O"£"THEN3000 
3500 RETURN 

3600 PRINT"3®MD»l0UflNTI CARATTERI" 

3700 INPUTJ 
3710 

3720 D'I MR$ X > 

3800 RETURN 
4000 REM BV COLOMBO C. 

5080 REM PINEROLO 
5500 REM 

6000 REM 16/10/83. 

6500 REM 

7000 FfcRT*ÌT0(2*P> : HEZTT: RETURN 
8000 FRI NT "73" 

8500 P0KE36879.. 25 
9000 F'R I NT : FRI NT ; PRI NT : PRI NT : PRI NT 
9500 FRINT"ALLA PROSSIMA VOLTA" 

9800 FRINT : FRINT : 

9908 FRINT"CIAO" 

In aria col computer 

Il secondo programma provvede alla 
conversione istantanea delle lettere battu¬ 
te sulla tastiera in codice morse. 

Quindi, con una semplice interfaccia 
saremo pronti a nuovi e interessantissimi 
QSO in CW. 

Attenzione: è necessario adeguarsi alla 
velocità di trasmissione, cioè non immet¬ 
tere lettere più velocemente di quanto 
vengano elaborate, oppure qualcuna verrà 

1 FRINT ; GOSUB1000 

2 FRI NT" 73" : GOSUB500 : FRI NT "73" ; GOTO 10 

3 P0KÈS2,236 :F0RT=1T0P:NEXTT:P0KES2,0 :FORT*1TOP•NEXTT : RETURN 

4 POKE82 > 236 : FORT»1TOL : NEXTT : P0KES2, 0 '■ FORT» 1 TOP : NEXTT : RETURN 

5 FORT-1TO <2*P >:NEXTT:GOTO30 
10 S2-36876 

20 P0KE36878,10 

25 PR I NT " IPPPPPPPI8SCRIVI ■" 

26 FRI NT : FRINT 

30 0ETA$:IFA$=""THEN30 
32 P0KE36879,28 
35 FRINT TAB<5>A$ 

40 IFR$="A"THENOOSUB3:G0SUB4:G0TQ5 
50 IFA**"B"THENG0SUB4:G0SUE3:Q0SUB3:GOSUB3 : G0T05 
60 IFA$="C"THENG0SUB4 : G0SUB3:G0SUB4 : G0SUB3 : GQTQ3 
70 ■ I FA$= " li " THENG0SUB4 : G0SUB3 : 0QSUB3 : G0T05 


dimenticata. 

Una piccola modifica alla linea 43 per¬ 
metterà di allineare orizzontalmente una 
lettera dopo l’altra. Il programma, infatti, 
prevede l’incolonnamento verticale. 

43 PRINT A $ (K); 

Nel frattempo, sto studiando il pro¬ 
gramma per la decodifica del CW, ma il 
problema è molto più complesso. 
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80 IFRf="E"THEHBQSUB3:G0T05 

90 IFfl$="F"THENGGSUB3:G0SUB3:GQSUE4:G0SUB3:GQTQ3 

100 IFfi$="G"THENGQSUB4:G0SUB4:G0SUE3:G0T05 

110 I FR$= " H " THEHG08UB3 : GQSUB3 : GQSUB3 '• G0SUB3 '• G0TG5 

120 IFR$=" I "THENG0SUB3 : G0SUB3 '• G0T05 

130 IF"J"THEHG08UB3 : G0SUB4:G0SUB4:G0SUB4 : G0TQ5 

148 I FA$= " K " THENG0SIJB4 : G03UB3 : G0SUB4 : G0T05 

150 IFA$="L"THENG03UB3 : G0SUB4 : GGSUB3 : G0SUB3 '• G0TG5 

160 I FR$- " fi " THENG0SUB4 : G0SUB4 : G0T05 

170 IFA$="N"THENG03UB4 : G0SUB3 : G0T05 

180 IFfl$=" 0 " THENG0SUB4 • G0SUB4 : G0SUB4 : G0T03 

190 IFfi$="F"THENGQSUB3 : G0SUB4■G0SUB4:G03UB3 : G0T05 

200 I FR$="Q"THENG0SUB4 : G0SUB4:GDSUB3 : G03UB4 : G03UB5 

210 I FR$= " R" THENG0SUB3 : G0SUB4 : G0SUB3 : G0T05 

220 IFR$="3"THENG0SUB3:GDSUB3:G03UB3:GQT05 

230 IFR$="T"THEHG0SUB4:G0T05 

240 I FR$= " U 11 THEHG0SUE3 : G0SUB3 : G0SUB4 : G0T05 

250 I FR$« 11 V 11 THENG0SUB3 : G0SUB3 : G0SUB3 : G03UB4 : G0T05 

260 IFR$="W”THEHG0SUB3:G0SUB4:G0SUB4:G0T05 

270 IFfl$="ft"THEHG0SUB4:G0SUB3•GDSUB3:GG3UB4:GGT05 

280 I FR$= 11 V " TKENG0SUB4 : G0SUB3 : G0SUB4 : GGSUB4 : G0T05 

290 I FA$="Z"THEHGGSUB4:G0SUB4:G0SUB3 ; G0SUB3 : GQT05 

300 I FA$= ‘"1 " THEHG03UB3 : G03IJB4 : G0SUB4 : G0SUB4 : G0SUB4 : G0T05 

310 IFA$="2"THENGQSUB3 : G0SUE3 : GGSUB4 '■ G0SUB4 : G0SUB4 : G0T05 

320 I FR$= " 3 " THEHG0SUB3 : G0SUE3 : G0SUB3 : GGSUB4 : G08UB4 '■ G0TG5 

330 I FR$= " 4 " THEHG0SUB3 : GGSUB3 : G0SUB3 : G03UB3-: G03UB4 : G0TG5 

340 IFR$="5"THENG0SUB3:G0SUB3:GGSUB3:GQSUB3 : G0SUB3:G0T05 

350 IFA$="S"THENG0SUB4: G0SUB3 : G0SUE3:GG3UB3:G08UB3:GGT05 

360 IFfl$="7"THENGQSUB4:G0SUB4:G0SUB3:G0SUB3:G0SUB3:GGT05 

370 IFR$="8"THENGÓSUB4:G0SUB4:G0SUB4:G0SUB3 : G0SUB3:G0T05 

380 IFR$="9"THENG0SUB4:GQSUB4 : G0SUB4:G03UB4 : G0SUB3 : G0T05 

390 ÌFA$="0"THENGO3UB4 : G0SUB4 : G0SUB4 : G0SUB4 : G0SUB4 '• G0T05 

400 IFA$=CHR$ (. 32 ) THENGGTO450 

410 I FR$= " # THENGGT02 

415 I FA$-"@"THENGOTO8000 

450 F0RT=1TD(3*P:' : NEXTT : GOTG30 

500 PQKE3637SL31 

510 PRINT":]" : PRINT : PRINT 1 PRINT ; PRINT 

550 PRINT"QUANTE BRTTUTE", 

560 PRINT 

570 PRINT"RL MINUTO"; 

600 INPUT K. 

650 P*IHTC3100>/K 
700 L=3#P 
750 RETURN 

1000 PR I NT " *###C0D IFI CATORE**** " .■ 

1100 PRINT 

1200 PRINT" MORSE" 

1250 PRINT:PRINT 
1300 PRINT"ISRUZIONI" 

1350 PRINT 

1400 PRINT"IL COMPÌUTER PUÒ" 

1500 PRINT"TENERE IN MEMORIA" 
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1600 FRINT”3QL0 15 LETTERE PER" 
1700 FRINT"VOLTA. ADEGUATI RLLR" 
1800 PRINT"VELOCITR'' DI TR8MI3-" 
1900 FRINT"SIOHE" 

2000 FRINT : FRINT 

2100 FRINT"PER VARIARE LA VELO-" 

2200 PRINT"CITA' PREMI #" 

2300 PRINT 

2400 PRINT"PER FINIRE PREMI 0" 

2500 PRINT 

2606 PRINT"PER COMINCIARE FREMI £" 
3080 GETB$ : IFB$ O"£"THEN3000 
3500 RETURN 
4000 REM BV COLOMBO C. 

5000 REM PIHEROLO 
5500 REM 

6008 REM 10/10/83. 

6500 REM 
8000 PRINT"ri" 

8500 P0KE36879,25 

9000 PRINT-PRINT : PRINT : PRINT:PRINT 
9500 PRINT"ALLA PROSSIMA VOLTA" 
9800. PRINT : PRINT : 

9900 PRINT"CIAO" 


FINE 


m 

IL COMPUTER È FACILE 

programmiamolo 

IL COMPUTER È FACILE 
PROGRAMMIAMOLO 

INSIEME 

INSIEME 


di Gianni Becattini 

ili ] 

INDISPENSABILE SE VOLETE 


COMINCIARE FINALMENTE A ENTRARE 


NEL MONDO DEI 

GIANNI B E CATTI NI 

PERSONAL COMPUTERS 

Il volume è in vendita presso tutte le librerìe e presso le Edizioni CD, via 
Boldrini, 22 - BOLOGNA - ai prezzo di L. 7.500 (sconto 10% agli abbonati). 
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Marco Bisaccioni 


U tility vengono chiamati quei program¬ 
mi che ci danno un aiuto particolare 
in determinate situazioni di softwarelavoro. 
E il caso di questo programmino che, corto 
corto all’aspetto, è di una UTYLITA sor¬ 
prendente. 

UST&SCROU. 

PERC64 

Le sue caratteristiche peculiari sono: 

1 - Genera un listato più facilmente com¬ 
prensibile incolonnando ciascuna istruzio¬ 
ne, all’interno della stessa linea, in una so¬ 
la esclusiva linea di programma. 

Esempio: il seguente programma basic: 
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Diventa dopo l’uso di “List & Scroll”: 

2 - Permette lo scroll completo del listato 
in entrambe le direzioni verticali. 

Quando avrete finito di ricopiare il li¬ 
stato a piè pagina, controllate accurata¬ 
mente quanto battuto e poi procedete al 
Run. 

Da questo momento in poi avrete un 
comando in più sul vostro C-64: 

(.) Con la pressione del punto seguito da 
return avete ora un listato del vostro pro¬ 
gramma in memoria sicuramente più leg¬ 
gibile e comprensibile. 

I tasti ‘UP’ e ‘DOWN’, dopo il return, vi 
permettono lo scroll in avanti e indietro 
del listato. 

Logica conseguenza è il fatto che se al 
(.) segue la linea di programma, il listato 
sarà visualizzato da quella particolare linea 
richiesta: 

Ad esempio: . 10 (return) 
listerà la linea 10. 

II comando basic LIST esiste ancora ed 
è a nostra completa disposizione pronto 
per essere casomai utilizzato alternativa- 
mente al (.) “Lista e Scrolla”. 


1 REM################################################################## 

2 REM# LISTfi E SCROLLA # 

3 REM################################################################## 

10 HB=F'EEK<5b>S256+PEEK<55 >-399 : I=6769 

20 READfi : IFA=256THEN40 

30 POKEI .■ A : C=C+A ; 1 = 1 + 1 : GOTO20 

40 IFC051322THENPRINT"TERRORE NEI DATA" : END 

50 LB=6769 

80 READA 

100 FORI=010382 

103 POKEHB+I,PEEKCLE+I> 

105 IF HOLE+1 GOTO 170 
110 V=F'EEK < A > +PEEK C A+1 ) *256 : A=V+HE~LB 

120 P0KEHB+1,A-1 NT < A/256)*256 : I = I +1 : POKEHB+1,I NT <A/256):READA 

170 HE/T 

180 SYSHB+2 : END 

6769 DATA113,26,173,113 , 26 , 133, 55 
6777 DATA133,51,173,114,26, 133,56 
6785 DATAI33s 52.. 234,234,234.. 169,76 
6793 DATA133,124,173,147,26/133,125 
6801 DATA173,148,26,133,126,96,149 
6809 DAT A26,201,46,208,9,72,173 
6817 DATA122,0,201,0,240,9,104 
6825 DATA201,58,144,1,96,76,128 
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6833 DATA@ , 168 , 2, 141.. 251 .• 0.. 32 
6841 DATA 115.. 0,240, 14, 176,21,32 
6843 HAT A107, 163, 32 , 203,26 , 32.215 
6857 DATAI 7076,42, 165, 163,0,133 
6865 DATA20, 133, 21,24, 144,238.. 76 
6873 DATA8,175, 234 .■ 234,234,32,13 
6881 DAT A166,160,2,177,35,133,20 
6883 DATA200,177,35,133,21,160, 0 
6837 DATAI77,35,201,0,208,47,20® 

6305 DATAI 77 ,35,201,0,203,40,240 
6313 DATA63,163,0,137,20,208,6 
6321 DAT A137,21,240,53,138,21,138 
6323 DATA20,32,13,166,160,2,177 
6337 DATA35,137,20,208,231,200,177 
6345 DATA35,137,21,208,224,32,68 
6353 DATA229,24,144,201,32,33,27 
6361 DATA32,228,255,201,0,240,249 
6363 DATA201,145,240,204,201,80,234 
6377 DÀTR234,234,201,13,240,8,230 
6385 DATR2t,208,160,230,21,288,156 
6393 DATA96,56,233,127,170,132,73 
7001 DATAI 60,255,202,240,8,2@9,135 
7009 DATA158,160,16,230,48,245,200 
7017 DATA185,153,160,48,6,32,210 
7025 DATA255,208, 245,36,164, 73,.41 
7033 DATR127,32,210,255,96,160,2 
7041 DATA32,215,170,230,139,177,35 
7049 DATA 170,200,177,35,32,205,183 
7057 DAT A198,139,32,215,170,166,251 
7065 DATR32,288,27,169, 0,133, 853 
7073 DATAI 60,3,.200, 177, 35,201,0 
7081 DATA240,83,166,253,208,4,201 
7083 DAT A188,176,8 7 ,38,210,255,201 
7037 DAT A34,208,8,72,165,253,73 
7105 DATAI,133,253,104,201,58,240 
7113 DATA33,208,220,234,234,234,234 
7121 DATA234,234,201,130,208,6,206 
7129 DATA251,0,206,251,0,72,32 
7137 DATA54,27,104,201,129,240,36 
7145 DATA201,167,808,131,230,252,230 
7153 DATA252,24,144,184,32,215,170 
7161 DATA 163,0,133,253, 165,251,10.1 
7163 DATA252,170,32,228,27,24,144 
7177 DATA 166,163, 8 ,133,258,1 33 ,253 
7185 DATA96,230,251,230,251,208,153 
7133 DATA224,0,240,7,32,63,171 
7201 DRTA202,24,144,245,96,256 
7700 DATA6769,6772,6773,6793,6738,6803 
7705 DAT A6842,6935,7023,7031,7122,0 


COSTI 

EM 

E 


READY. 


Sperando di avervi ragguagliato esau¬ 
rientemente, scrollo da questa pagina: 

END. 

FINE 


- 68 - 










ing. Remo Petritoli 


N ella costruzione di apparecchiature a 
microprocessore capita di frequente 
di usare delle eprom per memorizzare pro¬ 
grammi. 

Si tratta indubbiamente di un componente 
adattissimo allo scopo dato che può esser fa¬ 
cilmente programmato e con altrettanta faci¬ 
lità cancellato e riutilizzato. 



DI UN 


ULATORE 
È EPROM 

Non è tuttavia molto comodo il suo impiego 
nel corso dello sviluppo di un programma in 
quanto in tale fase sono frequenti gli errori e 
le correzioni; oguna di queste richiede pur¬ 
troppo lo smontaggio della eprom, la sua 
cancellazione con la lampada a ultravioletti, 
e una nuova programmazione. Dato che la 
cosa si ripete molte volte nel corso del lavo¬ 
ro, la perdita di tempo che ne deriva è sensi¬ 
bile. In più i ripetuti montaggi e smontaggi 
dello zoccolo del prototipo finiscono col dan¬ 
neggiare i contatti; d’altra parte uno zoccolo 
textol (a forza di inserzione zero) pare spre¬ 
cato per un uso temporaneo. 

Così mi sono deciso a realizzare un circuiti- 
no molto comodo che evita tutti gli inconve¬ 
nienti di cui sopra; lo chiameremo “Emula¬ 
tore di eprom”. 

Prima di procedere alla sua descrizione 
sarà il caso di illustrare la mia situazione e 
le mie esigenze e di definire alcuni termini 


con la speranza di rendere più chiara la 
spiegazione sul funzionamento e l’uso del 
circuito. Io mi occupo attualmente della 
costruzione di piccoli controller a micro¬ 
processor. Per ora uso lo Z80 con una 
eprom, una ram e circuiti periferici 
(PIO,CTC,SIO) adatti alla applicazione. 
Ne vengono fuori piccoli moduli relativa¬ 
mente compatti ed economici. Sarebbe 
meglio far uso di computer più adatti allo 
scopo ma la mancanza di un cross-assem¬ 
bler mi fa rimandare la cosa. 

Il lavoro è limitato e non giustifica l’ac¬ 
quisto di un sistema di sviluppo commer¬ 
ciale. Dispongo però di due calcolatori, 
uno Sharp MZ80K e un Osborne 1 con re¬ 
lativi programmi editore-assembler. 

I primi tempi ho provato a metter su 
eprom i programmi man mano che li svi¬ 
luppavo per la prova. Ho dovuto subito ri¬ 
nunciare in quanto passavo più tempo a 
trafficare sulle eprom che a far programmi. 
Dopo aver provato altre soluzioni mi son 
deciso a costruire l’emulatore prendendo 
spunto da un articolo sulla rivista america¬ 
na BYTE (n. 2/82 pagina 194). Nella mia 
realizzazione ho fatto in modo che potesse 
esser collegato con facilità a calcolatori di¬ 
versi e che si adattasse alle mie necessità. 

Quasi tutti i computer hanno una o due 
porte di entrata e uscita, né è difficile ag¬ 
giungercene una se manca (è quello che 
ho fatto io allo Sharp). Anche un modesto 
ZX80 può così, con un programmino in ba¬ 
sic, caricare programmi in codice macchi¬ 
na su piccole schede per controller o per 
qualunque altra applicazione in cui si usi 
una 2716. 

Questa soluzione, anche se funziona, 
resta alquanto primitiva e va bene solo per 
uso hobbistico. Io ho modificato l’assem- 
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bler in modo da inviare direttamente i by- 
tes alla ram dell’emulatore. In questo mo¬ 
do lo studio e la prova dei programmi sono 
diventati un lavoretto molto spedito. 

Per brevità chiamerò “master” (princi¬ 
pale) il computer principale su cui viene 
sviluppato il programma e che provvede a 
caricarlo sulla ram dell’emulatore e “slave” 
(schiavo) il circuito in prova che contiene 
la 2716 su cui va messo il programma in fa¬ 
se di sviluppo. 

Nello slave viene inserito nello zoccolo 
della eprom uno spinotto a 24 contatti da 
cui partono altrettanti fili verso l’emulato¬ 
re. I fili sono brevi in modo da non dar pro¬ 
blemi di funzionamento: nel mio caso solo 
20 cm. 

L’emulatore comprende una ram da 2K 
(per la 2716) e tutta una serie di buffer per 
il controllo del flusso dei dati. Il principio 
di funzionamento è il seguente: nel corso 
del funzionamento normale la ram è colle¬ 
gata al bus dello slave e viene da questi let¬ 
ta come se fosse una normale 2716. 

Per cambiare il programma in questa 
pseudo-eprom non occorre far altro che 
scrivere nuovi dati sulle ram. A questo 
provvede il master. 

Vediamo le cose sullo schema a bloc¬ 
chi. La 2716 ha 11 linee di entrata per gli in¬ 
dirizzi e otto linee di uscita per i dati. Que¬ 
ste linee vanno collegate (alternativamen¬ 
te perché non vi siano conflitti sul bus) o 
allo slave o al master. Vediamo prima le 
cose quando il circuito emula una eprom. 
Possiamo supporre allora non collegati Q 5 , 
Qq 9 Q 7 (vedi dopo) e considerare solo Q,, 
Q 2 , Q 3 ; Questi integrati sono dei buffer a 
otto bit abilitagli ognuno separatamente 
in due gruppi di quattro bit. Q 3 invia alla 
ram le 8 linee di indirizzo da A0 a A7 e Q 2 b 
altre tre linee (A8,A9,A10). È ancora di¬ 
sponibile una linea per espandere l’emula¬ 
tore in modo da poter simulare la 2732. 

Quando la eprom dello slave viene sele¬ 
zionata dal relativo decoder (piedino 18 
della 2716) l’entrata CS va a zero abilitan¬ 
do la ram Q 4 a fornire i dati (piedino 20 
RD). Viene abilitato pure Q, che li tra¬ 
smette al bus dello slave. L’effetto com¬ 
plessivo è che questo non vede in alcun 
modo la differenza tra l’emulatore e una 
vera 2716 sullo zoccolo. 


Possiamo quindi far tutte le prove che 
vogliamo senza alcun problema. Ma appe¬ 
na scopriamo un errore 0 una modifica da 
fare al programma le cose cambiano radi¬ 
calmente. Basta cambiare lo stato del bit 4 
della porta 2 del master per disabilitare Q,, 
Q 2 B, Q 3 e abilitare al loro posto Q 5 , Q 6 , Q 7 . 
Questi sono dei latch a otto bit (qualcosa di 
simile ai 7475, ma doppi) con uscita Lista¬ 
to. Le entrate sono collegate all’uscita del¬ 
la porta A del computer. I comandi di me¬ 
morizzazione sono controllati dai bit 0,1,2 
della porta B. 

Per scrivere i nuovi dati sulla ram do¬ 
vremo per ogni byte ripetere la seguente 
frequenza: 

1 - mettere in uscita sulla porta A gli otto 
bit inferiori dell’indirizzo; 

2 - portare a 1 e poi a 0 il bit 0 della porta B 
per memorizzare il dato in Q 7 ; 

3 - mettere in uscita sulla porta A gli 8 bit 
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superiori dell’indirizzo (quelli di troppo 
sono scartati dal circuito); 

4 - portare a 1 e poi a 0 il bit 1 della porta B; 

5 - mettere in uscita sulla porta A il byte 
che va scritto in ram; 

6 - portare a 1 e poi a 0 il bit 2 della porta B; 

7 - portare a 0 e poi a 1 il bit 3 della porta B 
per scrivere il dato nella ram. 

La sequenza può sembrar lunga ma il 
master la fa con velocità e precisione... 

Alla fine della sequenza di programma¬ 
zione si lascia il bit 3 della porta Bai (così 
la ram è protetta da ulteriori scritture) e si 
porta a 1 il bit 4 della porta B (disabilitando 
il circuito di scrittura e mettendo in fun¬ 
zione i buffer che collegano la ram allo 
zoccolo della 2716 del mìcro da provare. 

Basta premere il reset per poter provare 
il nuovo programma. Io ho previsto una 
uscita TTL open collector che se collegata 
al reset consente di far il tutto automatica- 



inverter 

-<1 17)000 bit 4 ì 

blt3 \^ B 


mente: in fase di scrittura sulla ram detta 
uscita va a zero tenendo resettato lo slave 
fino a che non si riporta a 1 il bit 4 della por¬ 
ta B. A questo punto la ram è collegata allo 
slave e il programma parte regolarmente 
avendo tolto il reset. 

Dato che non è usata per gli indirizzi, 
Q 2 a viene lasciato sempre abilitato e serve 
da buffer per alcuni segnali (CS dello slave 
e il bit 4 della porta B del master). 


COSTRUZIONE 

Dato il gran numero di collegamenti da 
effettuare non è il caso di pensare a un cir¬ 
cuito stampato. Si possono effettuare i col- 
legamenti con tecnica wire-wrap, ma si 
può benissimo far uso di pezzetti di filo 
saldati con molta pazienza sugli zoccoli. 
Adottare le solite precauzioni necessarie 
per i TTL, io non ho avuto problemi di sor¬ 
ta. Se questo suggerimento avrà suscitato 
il vostro interesse, in un successivo artico¬ 
lo proporrò lo schema elettrico completo e 
un esempio di programma di gestione per 
l’emulatore. 

Spero di essere stato chiaro, resto co¬ 
munque a disposizione per chiarimenti te¬ 
lefonici sull’articolo (ore 20-^-22,30 di tutti i 
giorni 0736/65880 o 085/292251). 

FINE 


Q 1 .Q 1 .Q 3 74LS244 
Qs.Qs.Q? 74LS373 
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IW4ARD, Gianni Matteini 


H o notato con piacere sulla nostra CQ 
l’inizio delle rubriche “Io e il compu¬ 
ter” e “Radioamatori e Computer”. 

Sono molto interessato ai programmi perZX 
Spectrum ed è per questo che vorrei dare an¬ 
che io il mio piccolo contributo: credo di far 
cosa gradita a tutti i radioamatori che hanno 
lo Spectrum. 

DATI OR BTIA. U 

Questo programma calcola i dati orbita¬ 
li del satellite in orbita elittica OSCAR 10 
PHASE 3B, ed è tratto dal programma di 
W3IWI e adattato perZX Spectrum; mi è 
stato di molto aiuto anche il libro “Satellite 
Tracking Software Por thè Radio Amateur” 
di J. Branegan GM4IHJ dove ho trovato 
preziosi cenni di meccanica celeste con i 
relativi algoritmi. 

Veniamo al programma: vi chiederà 
giorno, mese, anno e orario UTC di inizio 
dati e vi fornirà numero orbita, azimuth, 
elevazione e le città più importanti del 
mondo che si trovano in acquisizione. 

Posseggo una versione di questo pro¬ 
gramma molto più completa, che richiede 
uno Spectrum di 48K, e che non ho inviato 
per l’eccessiva lunghezza del listato ma 
che potrò mettere a disposizione di tutti i ra¬ 
dioamatori che lo desiderassero già inciso su 
cassetta; quest’ultima versione disegna an¬ 
che le proiezioni geografiche terrestri per 
continenti, cerchio di acquisizione ed ef¬ 
fetto doppler. 

Vorrei aggiungere alcune parole per la 
parte di programma che contiene le varia¬ 
bili dei dati orbitali del satellite e le coordi¬ 
nate geografiche della propria posizione. 


le. REM PHASE 5B 5,=ITELL ITE IN C 
R-3ITA ELLITTICA RZIftUTH E ELEUAZ 

IONE 

20 POKE 23&5S,8.' GO TO 0320 
30 LET E>XF sPB5 (US-LO) 

40 ir DiFj-iee then let dxf=3©s 

-GIF 

30 LET DZ1=((5IN (ALT*PQ>)*(SI 

N (LS*P0) + (COS (ALT*P0) ) *(COS ( 

L5*P0.' ) * (COS (DIF#P0> ) ) 

60 LET OZl=57.3* ( -ATN (DZ1,'S0R 
i -OZI*DZ1+1) ) +P1/3) 

70 IF OZ>=DZl THEN PRINT PARER 
4-; rt n , 0 ; "IN " ; P* 

90 IF DZ<DZ1 THEN PRINT PAPER 
2;AT N,0; " . " ; PS 

20 RETURN 

100 LET SL0=4-6-INT (LO/12 + .S) 

110 IF LO <180 THEN LET 5LO = lS-I 
NT (LO/12-.5) 

120 LET SLO=INT (12.5-PLT/8J 
130 IF DZ > OZI THEN PAPER 2: PRI 
NT AT SLdjSLO; "t" 

140 RETURN 
150 REM 

160 REM PIANO DX 
170 REM 

160 LET ALT=51.5 
190 LET LO=® 

200 LET N=4: LET P$="LONDON" 

210 30 SUB 003® 

22® LET ALT =4-® .75 
230 LET LO =74- 

240 LET N=5: LET P$="NEU YORK" 
250 GO SUB 0030 
25© LET ALT=37.58 
270 LET LO=122„5 

290 LET N=6: LET P$="S FRANCIS© 

O" 

290 GO SUB 0030 
300 LET ALT=-23 
31© LET LO =43.2 
320 LET N=7: LET P$="RXO" 

330 GO SUB 0©30 

340 LET ALT=-33.92 

350 LET LO=341.53 

360 LET N=S: LET P*="CAPETOUN" 
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37© GO SUB 0030 
360 LET ALT=1.3 
390 LET LO=SS6.15 

.100 LET N=3: LET P$="SINGAPORE" 
il0 GO 5UB 0030 
420 LET ALT=22,2 
130 LET LO =24-5 . 75 

110 LET N = 10: LET P$="HONG KONG 

*53 GO SUB 0030 

4-S0 LET ALT =35.75 

4-70 LET LO =220.25 

433 LET N = 11 : LET P$="TOKYO" 

4=0 GO SUB ©030 

SBC) LST ALT■-12.33 

510 LET LO=229.1 

520 LET N = 12 : LET P$="DARUIN" 

530 60 SUB 0030 

54.0 LST RLT= -31.95: 

S50 LET LO=2L4.13 

560 LET N=13: LET Pi="PERTH" 

570 GO SUB 0030 

SS© LET ALT=-33.8S 

590 LET LO =203.83 

600 LET N = 14 LET P$= "SYDNEY" 

610 GO SUB 0030 

320 LET RLT = -4-1.317 

S3® LET LO = lS5.23 

Si© LET N = 1S : LET P* = "UELLINGTO 

N " 

55© GO SUB 003® 

66© LET RLT=21.313 
670 LET LO = 157.67 
530 LET N = 16 ; LET = 

690 GO SUB 0030 
700 LET RLT=65 
71© LET LO = 14-7.66 

723 LET N=17: LET P*="FAIRBONK3 

730 GO SUB 0030 

740 RETURN 

75® LET D$=STR3 (T4) 

760 DIM £$(4.) 

770 LET e$ = '*0000" 

760 DIM T$(4) 

790 LET U=4-LEN D$ 

S00 LET T$=E$(1 TO U)+D* 

310 RETURN 

320 BORDER 1: PRPER 1: INK 7; C 

"Is© PRINT INK 2.; PRPER 6; FLASH 
1;"PHRSE 3 CALCOLO DATI ORBITRL 
I ": PRINT 

S40 PRINT "INSERIRE NUMERO GIOR 

Q ’ ' 

350 INPUT DM 

86® PRINT INUERSE 1;RT 2,28;DM: 
PRINT 

87® PRINT "INSERIRE NUMERO MESE 


•SS© INPUT MN 

S90 PRINT INUERSE 1; RT 4,28; HN: 
PRINT 

900 PRINT "INSERIRE NUMERO ANNO 

ES.33" 

910 INPUT YN 

920 PRINT INUERSE 1;RT 6,23;YN: 
PRINT 

930 PRINT ,, 

940 PRINT "INSERIRE ORARIO UTC, 
DI PARTENZA DEI DATI UTC IN HHMM 


950 INPUT R$ 

960 PRINT AT 21,21;"HHMM "; INU 
ERSE 1;A$ 

97® LET Ti=UAL A$ 

980 FOR N=0 TO 400: NEXT N 
990 LET D 6 = INT (YN/1) -INT ( (YN- 
1)74)4212+DM+(SGN <HN-S)*(INT (. 
5 -r ( ABS ((MN-6)*30.5))))ì 
1000 IF MN<3 THEN LET DS =DM +(MN — 
li *31 
101© CL5 

1020 GO SUB 2420 

1030 LET G©=7.5359793E13 

304© LET 01=1.0027379093 

1050 LET 62=.2759323721 

105© IF YN=83 THEN LET G2=.27526 

S7531 

1370 IF YN =84 THEN LET G2=.274S® 

35342 

108® LET D5=D6+365*(YN-Y2) 


1090 LET Pl=3.14159265 
110© LET P2=2*P1 
ili© LET P8=P1/180 

ì 12 ® .J= En T J2 = < INT (Tl/100) ) /24+ (T 

1-tINT (T1/10S)1*100)/(60*24)+D6 

-l 2 31? 1_ET T =T2 

1140 LET CH4=5 

115® LET R0=6378.18 

116© LET F = 1/298.25 

117© IF N0>.1 THEN LET P0=((G0/( 

NOt-2) ) t (173) ) 

11S8 IF N0 < =.1 THEN LET N0=SOR ( 
S07(R0t3)) 

1190 LET E2=l-E0t2 
1200 LET El=SOR JE2) 

1210 LET FA =© 

1220 LET 00=M07360+K0 
2230 LET Q=N0*(T-T0)+©0 
1240 LET K=INT 0 

125S BORDER 0; PAPER 0. INK 7 
126© CLS 


127© PRINT PAPER 4; INK 0;AT © 
; ‘PHASE 3B AL "; DM; MN; "7"; 

■ PRINT 


6 

YN 


128© PRINT INUERSE 1;AT 1,19,"OR 
BIT N.' ";K 

1290 PRINT PAPER 2; INK 6;RT 2,1 
SU "UTC";TAB 25; "AZ"; TAB 29; "EL" 

130© PRINT TAB 19, "- - -■ 

1310 LET K2=9.95*((R07A0)t3.5)7I 


E242) 

1320 LET S1=5IN 
133® LET C1=CQS 


(I0*P0) 

- __ - (I©*P0) 

1340 LET 0=00-(T-TB)*K2*C1 
1350 LET 50=5IN (O*P0) 

1360 LET C0=COS (O*P0) 

1370 LET U=US+CT-T0)*K2*(2.5*tC2 


42)-.5) 

1380 LET 52=SIN 
130© LET C2.=COS 
1400 DIM C(3,2) 
2410 LET C(1,1)= 
1) 


(U*P0) 

(U*PS) 

(C2*C0)-(S2*S0»C 


142© LET C(1,2)=-<S2*C0)-(C2*S0* 
Cl) 

1430 LET C(2,1)=(C2*S0)+(S2*C0*C 

2440 LET C(2,2)=-1S2*50)t(C£*C0s 
Cl) 

1450 LET C(3,1)=(S2*S1) 

1460 LET C(3,2)=(02*51) 

1470 LET ©=N0*(T-T0J +O0 
1480 LET K=INT © 

1490 LET M9=INT ((0-K)*256) 

1500 LET M=(0-K)*P2 

1510 LET E=M+E0*SIN M+.S*(E0t2)* 
SIN (2*M) 

152® LET S3=5IN E 
1530 LET C3=COS E 
1540 LET R3=1-E0*C3 
155© LET MI=E-E0*53 
156© LET M5=M1-M 

1570 IF ABS (MS)(1E-6 THEN GO TO 
1600 

2560 LET E=E-M57R3 

1590 GO TO 1520 

260© LET X0=A0*(C3-E0) 

1510 LET Y0=A0*E1*S3 
2620 LET R=A0*R3 

163® LET X1=X0#C(1,1)+Y0*C(1,2) 

164© LET Y1=X0*C(2,1)+Y0*C(2,2) 

1650 LET 21=X0*C 13,1) +Y0*C(3,2) 

1660 LET G7=T*G1+G2 

157© LET G7=(G7-(INT G7))*P2 

168© LET S7=~SIN G7 

169© LET C7=COS G7 

1700 LET X=(X1*C7)-<Y1*S7) 

1710 LET Y=(X1*S7)+(Y1*C7) 

1720 LET Z=Z1 
1730 LET L8=L9*P0 
274© LET S9=SIN (LS) 

1750 LET C9=COS (L8) 

1760 LET SS=SIN t-U9*P0) 

177© LET C8=COS (U9*P0) 

27S0 LET R9=R0*(1-(F72)+(F/2)*CO 
S (2*L8))+H071000 

1790 LET LS=ATN ((1-F)t2*597CS) 
1S00 LET ZS=R9*5IN CL8) 

281© LET XS=RS*COS (L8)*CS 
2820 LET Y9=R9*COS (LS)*58 
1830 LET X5=(X-X9) 

184® LET Y5=(Y-Y9) 
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1350 LET Z5=(Z-Z9) 

1860 LET R5=SQR tX5*X5+Y5SY5+Z5* 

25) 

1370 LET DZ=637B/R 

1830 LET DZ=S7,3*(-ATN (DZ/SQR ( 
-0Z*DZ+1))+P1/2) 

1890 LET Z8=<X5*C8*C9)+(Y5*SS*C9 
)+(Z5*S9) 

1908 LET ,\3 = - tXS*C8tS9) - (YS»SS*S 
+ ÌZ5»C9) 

1910 LET Y3 =(Y5*C8)-<XS*SB) 

1920 LET S5=Z8/R5 

1930 LET C5=S0R (1-55*55) 

194-EJ LET E9=(fiTN (55/C5))7P0 
1950 IF E9<-5 THEN GO TO 2300 
1950 LET f)9 = <RTN (Y8/X3) i /P® 

LET BSeZ/R 

1330 LET L5=(flTN (65/(SOR (1-BS» 

SS) ) ) ) *57.3: 

1993 LET US=(flTN (Y/X))457.3 
2000 IF X<0i THEN LCT W5=180-U5 
2010 Ii= X>© AND Y<0 THEN LET U5 = 

-U5 

£020 IF x>0 AND Y>0 THEN LET U5 = 

3- S0-U5 

£030 IF X=S AND Y>=0 THEN LET US 

£70 

204.0 IF X=0 AND Y <0 THEN LET U5 = 

90 

3053 IF X3<0 THEN LET A9=A9+130 
2060 IF X8>0 RND Y8<0 THEN LET B 

9=360+AS 

207O IF X8=0 AND Y8>=0 THEN LET 

A9 = 90 

2030 IF X3=0 AND YS<0 THEN LET A 
9 = 270 

2090 LET T4=(INT ((T-INT T) *24-00 
+.5))7100 

210© LET T4=INT ( ( 100* ( (T4--INT T 
4)*.6*INT T4-) ) + . 5) 

2110 SO SUB 0750 
2120 IF FA=1 THEN GO TO 2210 
2130 PRINT TAB 13;T$;TAB 25;INT 
33,TAB £9;INT E9;,, 

£14.® LET T sT + 1/96 

2150 IF (T-T2)>.16 THEN GO TO 21 

70 

216© GO TO 134-0 
2170 LET FA=1 
2180 LET T=T£ 

2190 PRINT AT 20,0; PAPER 1; INK 
7, 'TENERE PREMUTO: L PER UN NUO 
UO MENU, A PER FERMARE, C PER S 
TOP " 

2200 GO TO 134-0 

2210 PRINT AT 2,0)”DX STATE AT " 

)T* 

2220 PRINT AT 3,0;" - 

2230 GO SUB 0160 

224-0 IF XNKEY$="A" THEN GO TO 22 
79 

2250 IF INKEYj* < > " A " THEN GO TO 2 

300 

29B0_.TF_.T.NiSFY't; = ”G". IH8KI. pn. iru?" 

4- 0 


2270 

PRINT 

AT 16,9, 

;"FERMO" 


2260 

GO TO 

2260 



£29 e 

PRINT 

AT 18,9 



230 3 

IF INKEY «fc = ” L ** 

THEN BORDER 1 

: PfiPER 1: 

CLS : GC TO 930 


«319 

LET T 

=T + 1796 



7 ? 

IF (T 

-T£) > . 16 

THEM GD 

TO 21 

233® 

GO TO 

134-0 



£34-0 

2350 

30 " 

3360 

NI" 

2370 

CLS 

PRINT 

"TITOLO 


PHA5E 

PRINT 

"IU4ARD 

Gianni 

MATTEI 

PRINT 

"Uià C. 

Pavese, 

20" 

2363 

PRINT 

"47041 BELLARIA 

(For L 

2390 

PRINT 

"Adattato dal program 

F 3 di 

U3IUI" 



£400 

PRINT 

"Per ZX 

Spe c t ruta , " 


STOP 





24-20. rem INSERIRE YEAR NUMBER 
wF ORBIT DATA EPOCH 
24.39 LET Y2 = 83 

244-3 REM INSERIRE DAY. DAY OF 
C-RBIT DATA EPOCH 


2450 LET T0=285.5 

2460 REM INSERIRE ORBIT INCLINAT 
ION ANGLE IN DESREES.DEGREES 
2470 LET 10=26.0050 
2480 REM INSERIRE ORBIT REUGLUTI 
9N COUNT RT EPOCH TIME, INSERIRE 
0 SE SCONOSCIUTO 
2490 LET K0=249 

230© REM INSERIRE MEAN ANOMALY 

AT EPOCH IN DEG.DEG 

2510 LET H0=17.2220 

2520 REM INSERIRE MEAN MOTION 

IN REO.REO PER DAY 

2530 LET N0=2.05854010 

2540 REM INSERIRE ECCENTRICITY 

2550 LBT E0=.6049226 

2569 REM- INSERIRE ARGUMENT CF 
PHRIGEE IN DEG.DEG 

2570 LET 00=210,5700 

2580 REM INSERIRE RIGHT ASCENSIO 
H OF ASCENDING NODE 
2598 LET 00=236.6270 
2600 REM INSERIRE PROPRIA LATITU 
DINE IN DEG.DEG (SUD LAT. E '' -ve 
} 

£610 LET L9=44,0354 

2620 REM INSERIRE PROPRIA LONGIT 

UDINE IN DEG.DEG QUEST 

2530 LET U9=347.3224 

2640 REM INSERIRE ALTEZZA DELLA 

STAZIONE SUL LIVELLO DEL MARE ' 

IN METRI 
2659 LET H9=20 
£66© RETURN 

2870 SAUE "PHASE 3B” LINE 1 


Le linee vanno dalla 2420 alla 2650; alla 
2610 e alla 2630 si trovano rispettivamente 
latitudine e longitudine in gradi, gradi; 
esempio 44° 30’ si scriverà 44.5 etc, la lon¬ 
gitudine va inserita come longitudine 
Ovest esempio 12° 30’ diventano 347° 30’ 
che andranno inseriti come 347.5, al passo 
di programma 2650 va inserita l’altezza in 
metri sul livello del mare della propria sta¬ 
zione. 

Con questo ho terminato! 

I dati immessi nel programma sono ag¬ 
giornati con dati del mese di Ottobre ‘83 
forniti da KA9Q, via AMSAT Net sui 20 
m. 

Sono disponibile per qualsiasi informa¬ 
zione sul programma: 

IW4ARD: MATTEINI Gianni 
Via C. Pavese, 20 
47041 BELLARIA (FO) 

Tel. 0541-44292 

FINE 
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di 


MICRO-PROFESSOR 



contengono CPU R6502 ■ 64 K Bytes di RAM 
16 K Bytes di ROM con Interprete Basic Apple Soft 


il MICROPROFESSOR II (MPFII) è un computer unico nel suo genere perché unisce a grandi capacità di memorie residenti (64 K By¬ 
tes di RAM e 16 K Bytes di ROM) una configurazione di sistema ridottissima. 

È veramente portatile. 

Le sue minime dimensioni (cm 25 x 18,5 x 3.2) non gli impediscono però di essere un "personal computer" perché oltre ad essere do¬ 
tato di eccezionali capacità di memoria residenti può essere completato ed allacciato con diverse periferiche. 

MPFII diventa così un computer gestionale come altri computer più famosi ed "ingombranti" di lui. 

Il modulatore RF e la scheda PALCOLOR residenti vi permetteranno di collegarlo al vostro televisore. 

Ecco perché MPFII non è solo “lavoro", ma anche relax, 
insomma un computer idoneo per lutti, dai 7 ai 70 anni di età. 

L’ampia disponibilità di software in cassetta, dischi e cartuccia (cartridge) costituisce l'elemento preponderante che lo rende indi¬ 
spensabile come: SUPPORTO GESTIONALE (amministrazione, magazzino, acquisti, commerciale, ecc.) per negozi, uffici, aziende. 
SUPPORTO SCIENTIFICO PRATICO per tecnici, professionisti, ricercatori, hobbysti. SUPPORTO DIDATTICO per studenti. SUP¬ 
PORTO RICREATIVO (giochi, quiz, ecc.) per tutti. 



nirzirciy 

UIUII Lf\ 


□□rnPUTER 


Via Valli, 28 - 42011 BAGNOLO IN PIANO (R E.) 
Tel. (0522) 61623 - Telex 530156 CTE I 


1) Computer 

2) Interfaccia per disk drive 

3) Disk drive (slim line) 

4) Tastiera esterna 


a 0 . advertm R««io e 



















Omologazione Ministero P.T. 

n.: IST 0011119/3-558 del 17-11-1983. 


TERMINALE 


TERMINALE N° 3 



ARCHIVIO 

TELEX 



ELABORATORE 

CENTRALE 


LINEA 


SISTEMA CP8/2-IB 


Il telex deve oggigiorno fornire un servizio ottimale, 
adeguandosi a ben specifiche esigenze d'ufficio 
per aumentare l’efficienza. 

La Selea Elettronica propone una serie completa 
di Sistemi che soddisfano i piccoli, medi e grandi 
utenti. 

Tali Sistemi possono anche essere collegati ad 
Host Computer, abilitandone i terminali al servizio 
telex, con i seguenti principali servizi: 

— Arrivo del telex al terminale interessato. 

— Terminali con pass-word di autorizzazione. 

— Testi standard da personalizzare al momento 
della spedizione. 

— Archivio dei messaggi nella memoria di Host 
Computer. 

La trasmissione, ricezione e memorizzazione del 
telex avviene anche con calcolatore spento. 



N° 1. 


SISTEMA 


CENTRALE 

CP8/2 

d -► 

LINEA 

MO O 

TELEX 


RETE 

PUBBLICA 

TELEX 


ut'. 




Sede: Amministrazione s Stabilimento: 40012 CALDERARA di RENO (BO) - Via XXV Aprile 27 - Tel. (051) 727271 (3 linee R A.) - TeHex 21669^ 


Direzione Commerciale Lombardia: 20143 MILANO - Via F. Venosta 31 - Tel. (02) 817595-816457-817533 - Telex 324684 “ ' ^ 

Direzione Commerciale Centro Sud: 00183 ROMA - Via Appia Nuova 59 - Tel. (06) 7553665-7573397 - Telex 620174 
























